//) {$p eq $_ ? $r{$_}[$#{$r{$_}}]++ : push @{$r{$_}}, 1; $p = $_} %r = map {$_ => (sort {$b <=> $a} @{$r{$_}})[0]} keys %r; say Dumper \%r'
$VAR1 = { 'd' => 5, 's' => 5, 'a' => 1 }; https://PerlBanjo.com/994cf80063
Обсуждают сегодня