Help for this page

Select Code to Download

Select or download this

sub myroutine {
        $hash_ref = (shift);
...
}

myroutine(\%thishash);

Select or download this

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