Select Code to Download

my @b = uniq @a;

my %seen;
my @b = grep !$seen{$_}++, @a;

my @b = @{( reduce { push @{$a->[1]}, $b if !$a->[0]{$b}++ } [ {}, [] 
+], @a; $a )->[1]};