sub uniq (@) {
    my %h;
    map { $h{$_}++ == 0 ? $_ : () } @_;
}