sub g {
shift;for(@{+shift}){s/[@_]//g;$c{$_}++for split//}(sort{$c{$b}<=>$c{$a}}%c)[0]
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_123456789
}