Re: Transforming hash (removing useless key)

[olivierp]

As you mention you will be only returning a single key, how about:

 $data  =  delete $data->{ (keys(%$data))[0] };