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

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