in reply to Transforming hash (removing useless key)

You could also do: 
my $result = (each %$data)[1];

[download]

-b

Replies are listed 'Best First'.
Re^2: Transforming hash (removing useless key)
by nobull (Friar) on Jan 29, 2005 at 09:59 UTC
[reply]
[d/l]

In Section Seekers of Perl Wisdom