use List::MoreUtils qw( uniq );
my @x = uniq 1, 1, 2, 2, 3, 5, 3, 4; 

# @x now contains 1 2 3 5 4