callsub(\%hashtopass);

sub callsub {
     my $hashref = shift;

     foreach my $k (keys %$hashref) {
..
..