use Data::Dumper::Simple;
print q(<pre>);
print Dumper(%foo);