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