Help for this page
my @hash_refs = keys %{$VAR1};
#!/usr/bin/perl -w use strict; ... my %tmp = %$VAR1; print "'bar' in '365' is: ".$tmp{'365'}->{bar}."\n";