sub uniq {
    my %saw;
    grep !$saw{$_}++, @_;
}