$ perl -MData::Dumper -le '$f = "9YT"; $$f = "foo"; print Data::Dumper::Dumper(\%main::)' $VAR1 = { # snip '9YT' => *{'::9YT'}, # snip };