sub unique {
  my %h;
  grep !$h{$_}++, @_;
}