{artnr => 'SH-001', anz => 2, price => 3.99}

my $linepos = 700; # y Startposition
foreach my $rec(@$recordset){
   my $params = record_hilfs_funktion($rec, $linepos); # Hasref
   
   $pdf->string($font, @{$params->{artnr}});
   $pdf->string($font, @{$params->{anz}});
   $pdf->string($font, @{$params->{price}});

   $linepos -= 20; # Schriftgröße beachten
}
# ohne Gewähr auf syntaktische Richtigkeit

                        # Tabelle mit der Bestellung, Bestellnummer nicht vergessen
                        my $linepos = 520;
                        my $cols = recParams(
                                {
                                        artnr => 'Artikelnummer',
                                        arttitle => 'Artikelbezeichnung',
                                        anz => 'Anzahl',
                                        preis => 'Einzelpreis',
                                        xpreis => 'Summenpreis',
                                },
                                $linepos
                        );
                        # nun alles in einer Schleife über die 4 Spalten
                        foreach my $col(1,2,3,4){
                                $page->string($f1, @{$cols->{$col}});
                        }
                        # damit ist ersteinmal der Tabellenheader erzeugt


                # Record-Hilfsfunktion
                sub recParams{
                        my $rec = shift; # {artnr, arttitle, anz, preis, xpreis}
                        my $ypos = shift;
                        # Hashref für den Return, Parameter für die Spalten
                        my $params = {
                                1 => [10, 40, $ypos, "$rec->{arttitle}/$rec->{artnr}"],
                                2 => [10, 310, $ypos, $rec->{anz}, 'r'],
                                3 => [10, 400, $ypos, $rec->{preis}, 'r'],
                                4 => [10, 490, $ypos, $rec->{xpreis}, 'r'],
                        };
                        return $params;
                }