GrassHopper! Always read the books. In the Perl Cookbook you can find

my %seen =() ;
@unique_array = grep { ! $seen{$_}++ } @non_unique_array ;

Which makes the soul happier!