my %seen;
my @uniq = grep { ! $seen{$_} ++ } @arr;