&callsub(%hashtopass); 

sub callsub {
   %hashread = @_;

   foreach $k (keys %hashread) {
       print "$k => $hashread{$k}\n";
   }
}