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

my $refrain = "Eisgekuehlter Bommerlunder -\nBommerlunder eisgekuehlt.\n\n";
my $i = 0;
my $end = 'es';
for (;;) { 
  print "$i belegt$end Brot mit Schinken - Schinken!\n";
  print "$i belegt$end Brot mit Ei - Ei!\n";
  print "Das sind ".($i+$i)." belegte Brote,\n";
  print "$i mit Schinken und $i mit Ei.\n\n\n";
  print "$refrain" x2;
  $end = 'e';
  $i++;
}

$r="Eisgekuehlter Bommerlunder -\nBommerlunder eisgekuehlt.\n";$i=0;$e='s';for(;;){print "$i belegte$e Brot mit Schinken - Schinken!\n
$i belegte$e Brot mit Ei - Ei!\nDas sind ".($i+$i)." belegte Brote,\n$i mit Schinken und $i mit Ei.\n\n\n";print"$r"x2;$e='';$i++;}