&callsub(\%hashtopass);

sub callsub
{
    my $hashread = $_[0];

    foreach $k (keys $%hashread)
    {
        .
        .
        .
    }
}