Вот Вам пример, остальное надеюсь додумаете
#!/usr/bin/perl -w
use strict;
#use Data::Dumper;
mysend(1,2,\\{1=>\'a\',2=>\'b\'});
sub mysend {
my ($v1,$v2,$h1) = @_;
#print Dumper($h1);
print ${$h1}->{1},"\\n";
for ( keys %{${$h1}} ) {
print "key $_ has value ${$h1}->{$_} \\n";
}
}