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