use strict, etc. pp.

my $max = @PICS;

for my $i( 0 .. $max )
	{
	$Pictures .= "PIC:<br><img src=\"$PICS[$i]\" alt=\"$CAPTIONS[$i]\" border=\"0\" class=\"GalleryPic\">CAPTION:<br>$CAPTIONS[$i]";
	}