While I realize this quiz probably mentioned not using CPAN modules, but here is what I would do in real code:

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