Suggest you pass a reference to a hash and iterate over the keys to extract the value.

&callsub(\%hash);

sub callsub
{
   my($ref)=@_;
   foreach my $key(keys %$ref){ 
      print $ref->{$key}; 
   }
}
[download]

Also suggest you get a copy of the "Perl cookbook" .Very handy for such day to day problems
HTH.
chimni