Select Code to Download

use strict;
use warnings;
use List::MoreUtils qw( uniq );
my @array = (1, 1, 3, 2, 8, 9, 4, 2, 3);
print uniq( @array ), "\n";