Help for this page
sub createHoAoHfromAoHbyIndexingByTheValueOfOneKey{ my( $AoHref, $key ) = @_; ... push @{ $HoAoH{ delete $_->{ $key } } }, $_ for @$AoHref; return \%HoAoH; }