my %h   = map { $_, 1 } @arr;
my @uniq_arr = keys %h;