#!/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:
	}
}