Help for this page
use List::Util qw[ shuffle reduce ];; ... print "$maxKey : ", $hash{ $maxKey };; x : 26