my %hash;

1 if $hash{t1};
1 for $hash{t2};
\$hash{t3};
sub {         }->( $hash{t4} );
sub { ++$_[0] }->( $hash{t5} );

print "$_\n" for sort keys %hash;

##</code><code>##

t2
t3
t5

##</code><code>##

if ($hash{foo}{bar})

##</code><code>##

if ($hash{foo} && $hash{foo}{bar})