$ perl -MO=Deparse -e'$hr->{foo$nr} = 1'
$$hr{$nr->foo} = 1;