Select Code to Download

sub map_direct {
    my %H = (map %$_, @$AoH);
...
    @H{map keys %$_, @$AoH} = ();
    return keys %H
}