I think this answers your question.

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

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.