anagram
1234567891011121314151617181920212223242526272829
use v5.18;
use utf8;
sub anagram {
my $arrayref = shift;
my %uniq;
my %res;
for my $val (map { lc $_ } @$arrayref) {
next if $uniq{$val}++;
my $key = join '', sort split(//, $val);
push @{ $res{$key} }, $val;
}
my %res2;
for my $key (keys %res) {
next if scalar @{ $res{$key} } < 2;
my $k = $res{$key}->[0];
@{ $res2{$k} } = @{ $res{$key} };
}
return \%res2;
}
my @list = ('пятак', 'ЛиСток', 'пятка', 'стул', 'ПяТаК', 'слиток', 'тяпка', 'столик', 'слиток');
my $result = anagram(\@list);
say "$_: @{$result->{$_}}" for sort keys %$result;
# { 'пятак' => ['пятак', 'пятка', 'тяпка'], 'листок' => ['листок', 'слиток', 'столик'], }
Perl
INFO