my @a = (1,2,3,2,1);
my %a;
@a{@a} = (1) x @a;
my @unique_a = keys %a;