autogallerySQL perl directive

[fucter]

Im trying to get a perl script to work that displays different banner ads randomly, so everytime I do a build I should have a diffrent banner ad

heres what I wrote:

#!/usr/bin/perl
my $range = 13;
  my $random_number = int(rand($range));

  $image[1]['pic']='example.banner.jpg';
  $image[1]['link']='http://some.domain';

$image[n]['pic']='example.banner.jpg';
  $image[n]['link']='http://some.domain';

 

print '<a href="'. $image[$random_number]['link']. '">';
print '<img src="'. $image[$random_number]['pic']. '"  border=0>';

obvioulsy, I left some links out and abbreviated them for 1 to n

well, this code doesnt work, i tried replacing 'print' with 'data .=' but that didnt work either (well, it sorta worked, the image and the link were the same for some reason.
Anyone have an idea what I am talking about, and how to fix it?