DB<113> use List::Util qw/max/ DB<114> $max = max values %count => 3