sub uniq {
    my %h;
    return grep { !$h{$_}++ } @_
}