sub unique {
   my %seen;
   my @unique = grep {!$seen{$_}++} @_;
   return @unique;
}