my @array = (10 20 20 20 30 40 40 40 50 50 50);

my %hash;
@hash{ @array } = ();

say keys %hash;