sub uniq {
    my ($out, %saw)=shift;
    print $out grep !$saw{$_}++, @_;
}