my %count = ();
my @uniques = grep {! $count{$_}++} @array;