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