#!/usr/bin/perl
sub o{return "$_ $i$x $j$y mit $_[0] - $_[0]!
"}for (1..10) {$s=$_*2;($x,$y)=$_>1?('','e'):('s','');($i,$j,$k,$l,$m)=qw(belegte Brot Schinken isgekuehlt Bommerlunder);$o='Und dazu:
';print "E${l}er $m -
$m e${l}.
"x2 ."
$o
".o($k).o('Ei')."Das sind $s $i ${j}e,
$_ mit $k und $_ mit Ei.

$o
"}