Select Code to Download

my %tmp = map { $_ => 1} @foo;
my @uniq_foo = sort keys %tmp;

my @uniq_foo = sort keys %{ {map { $_ => 1} @foo} };

my %uniq = map {
    my %tmp = map { $_ => 1} @$_;
    $_ => [sort keys %tmp];
} keys %arrays;

my %uniq = map {
    $_ => [sort keys %{ {map { $_ => 1} @$_} }];
} keys %arrays;

my %uniq = map {
    my %saw;
    $_ => [map !$saw{$_}++, @$_];
} keys %arrays;

my %uniq = map { $_ => [uniq @$_] } keys %arrays;