sub unique {
    my %seen;
    $seen{$_}++ for @_;
    keys %seen;
}

my @unique_values = unique( @some_values );