You can do this way:

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

or module List::MoreUtils can be used.