Select Code to Download

&callsub(%hashtopass); 

sub callsub {
...
       print "$k => $hashread{$k}\n";
   }
}

&callsub(\%hashtopass, $otherStuff);

sub callsub {
...
       print "$k => $hashref->{$k}\n";
   }
}