Hmm..

print Data::Dumper->new(\%foo)->Indent(3)->Dump;
[download]

Nevertheless, I use the global a lot of the time.

Makeshifts last the longest.