perl - Folding Array of hashes to HoH -

i have $maps aoh wish make $new_map hoh based on member of enclosing hashes.

i have:

map { $new_map->{$_->{type}} = $_; delete $_->{type} } @$maps; 

this job..

i wonder if there's better/simpler/cleaner way intent. perhaps, getting return value map?

$new_map = map { ... } @$maps;  

thanks

your original solution misuse of map doesn't use list operator returns. for correct tool here, , think reads better way too, if use fact delete returns value of element has removed

$new_map->{ delete $_->{type} } = $_ @$maps; 

or translate array using map properly, here

my %new_map = map { delete $_->{type} => $_ } @$maps; 

the choice own