@unique = grep { ++$count{$_} < 2 } qw(a b a c d d e f g f h h);print "@unique\n";