use List::MoreUtils qw/uniq/; my @foo = (1,1,1,2,3); my @uniques = uniq @foo;