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