sub union
{
    my %h;
    @h{@$_} = @$_ for @_;
    values %h
}