# hashref vornedran packen
call_sub( $hashref, eins => $eins, zwei => $zwei );
...
my ($hashref, %para) = @_;


# hashref hinten anfügen, nicht so schön:
call_sub( eins => $eins, zwei => $zwei , $hashref );
...
my $hashref = pop @_;
my %para = @_;


# nur hashrefs übergeben:
call_sub( { eins => $eins, zwei => $zwei }, $hashref );
...
my ($para, $hashref) = @_;
# und dann mit %$para statt %para weiterarbeiten