Select Code to Download

use List::Util qw( uniq );

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

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