#!/usr/bin/perl

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