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