sub myroutine {
        $hash_ref = (shift);
        $$hash_ref{foo}='bar';
}

myroutine(\%thishash);

##</code><code>##

die "Not a HASH reference" unless (ref($hash_ref) eq "HASH");