sub uniq (@) {
    my %seen = ();
    grep { not $seen{$_}++ } @_;
}