use List::MoreUtils qw( uniq ); 
my @dupes = ( 4, 1, 6, 4, 3, 7); 
my @deduped = uniq( @dupes );