Select Code to Download

my @a = (0, 1, 1, 2, 3, 4, 5, 5, 5, 6);
my %unique;
...
map { $unique{$_} = 1 } @a;

my @a_unique = keys %unique;