use List::MoreUtils qw/uniq/;
my @uniq = uniq @list;