perl -w -e 'use strict;my $t;
if (scalar (keys %{$t->{r}}))
{print "There are keys\n";}
print "t->{r} = $t->{r}\n"; 
'
t->{r} = HASH(0x80fbc50)


##</code><code>##

 perl -w -e 'use strict;my $t = undef;
my %p = %{$t->{r}};
print "t->{r} = $t->{r}
";
'