.
.
&callsub(%hashtopass);

sub callsub
{
   %hashread = $_[0];
 
   foreach $k (keys %hashread)
  {

     .
     .
     .
  }
}