while(++$n){$s=$n*2;@x=$n>1?('','e'):('s','');($i,$j,$k,$l,$m)=qw(belegte Brot Schinken isgekuehlt Bommerlunder),$d="Und dazu:\n";print "E${l}er $m -
$m e${l}.\n"x2 .qq(
$d$n $i$x[0] $j mit $k - $k!
$n $i$x[0] $j mit Ei - Ei!
Das sind $s $i ${j}e,
$n mit $k und $n mit Ei.

$d)}