Help for this page

Select Code to Download

Select or download this

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