#!/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++;
}