use List::Util qw( uniq );

##</code><code>##

sub uniq {
    my @values = @_;
    my %uniq;
    @uniq{@values} = ();
    return keys %uniq
}

##</code><code>##

sub uniq {
    my @values = @_;
    my %seen;
    return grep ! $seen{$_}++, @values
}