#!/usr/bin/perl

use strict;
use warnings;

for (1..10) {
    my $sum = $_*2;
        print qq{
        Eisgekuehlter Bommerlunder -
        Bommerlunder eisgekuehlt.
        Eisgekuehlter Bommerlunder -
        Bommerlunder eisgekuehlt.

        Und dazu:
        $_ belegtes Brot mit Schinken - Schinken!
        $_ belegtes Brot mit Ei - Ei!
        Das sind $sum belegte Brote,
        $_ mit Schinken und $_ mit Ei.

        Und dazu:
        }
}