format HEADER =
Menge Art.nr. Bezeichnung Preis(€) Gesamt(€)
_____________________________________________________________________
.

format INHALT =

@<<<< ^<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>> @>>>>>>>>>
$menge,$nr,$text,$preis,$summe,
~~ ^<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$nr, $text
.

format FOOTER =
_____________________________________________________________________

Warenwert: @>>>>>>>>>
$gesamt
.

##</code><code>##

$~ = "HEADER"; write;

$~ = "INHALT";
foreach (0..$#bestellung) {
($text, $nr, $preis, $menge) = split(/\|/, $bestellung[$_]);
$summe = sprintf("%.2f", $menge*$preis);
... irgendwas ...
write; 
}

$~ = "FOOTER"; write;