use List::Util 'reduce';
use 5.010;
my %hash;
$hash{$_}++ for split //, $my_string;
say "Most frequent: ", reduce {$hash{$a} > $hash{$b} ? $a : $b} keys %hash;