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