use List::MoreUtils qw(uniq);
my @uniqueItems = uniq @array;