sub uniq {
            my %hash = map { $_ => 1 } @_;
            return keys %hash;
        }