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

my $a="Bommerlunder";
my $b="Eisgekuehlter $a -\n$a eisgekuehlt.\n";
my $c="\nUnd dazu:\n";
my $d=1;
my $e="Brot";
my $f=" mit ";
my $g="Schinken";
my $h="Ei";
my $i=" - ";
my $j=" belegtes $e";
my $k="belegte";
my $l=" $k Brote";
my $m="$k $e";
my $n="!\nDas sind ";
my $o=" und ";

# erste strophe
print "$b$b$c$d$j$f$g$i$g!\n$d$j$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";

# alle weiteren strophen *g*
while (++$d){
   print "$b$b$c$d $m$f$g$i$g!\n$d $m$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";
}