use List::MoreUtils qw/uniq/;
my @uniq_array = uniq @array;