in reply to Re: Transforming hash (removing useless key)
in thread Transforming hash (removing useless key)

Or simply
my $result = (%$data)[1];