my $flipFlop = 1; foreach my $bild (@bilder) {  print qq~~;  print "
" if $flipFlop < 0;  $flipFlop = - $flipFlop; }