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)