Unique values (Perl)

use List::MoreUtils qw( uniq );

@arr = qw( 4 4 2 2 );

@arr = uniq @arr;

print "@arr\n";


# =====
my @uniq = unique( @in );

sub unique
{
    my %seen;
    return grep {!$seen{$_}++} @_;
}