Help for this page
my %hash; ... sub { ++$_[0] }->( $hash{t5} ); print "$_\n" for sort keys %hash;
t2 t3 t5
if ($hash{foo}{bar})
if ($hash{foo} && $hash{foo}{bar})