#!/usr/bin/perl
use strict;
use warnings;

my @pics     = map { sprintf "%02d.jpg", $_ } 1..6;
my @captions = qw( quark mehl tomate schinken kaese ananas );

for my $i ( 0 .. $#pics ) {
        print <<BILDINFO;
PIC:<br>
<img src="$pics[$i]" alt="$captions[$i]" border="0" class="gallery_pic" />
CAPTION:<br>
$captions[$i]
BILDINFO
}