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