in reply to Transforming hash (removing useless key)

I abhor the use of map in void context, so I would do something like this:

my ( $thing ) = values %$data;