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

myroutine(\%thishash);