&callsub(\%hash);

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