use List::MoreUtils qw(uniq);

my @list = (1,1,2,3,3,4);
print join( ',', uniq(@list) );