sub aighearach2 {
    my ( %unique );
    for ( my $i = 0; $i < @_; $i++ ) {
        @unique{ map @$_, @_ } = ();
    }
    return keys %unique;
}