sub uniq {
    my %uniq;
    @uniq{map @$_, @_} = ();
    return [ keys %uniq ];
}