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