my $ff=0;
my @p=("<br />","");
foreach my $bild (@bilder) {
   print qq~<img src="$bild" />~;
   print $p[$ff^=1]; 
}