my $names = "freddy fred bill jock kevin andrew kevin kevin jock";
    my %freq;
    for my $name (split ' ', $names) {
       ++$freq{$name};
    }
    for my $k (sort { $freq{$b} <=> $freq{$a} || $a cmp $b } keys %freq) {
       printf "%-10s: %d\n", $k, $freq{$k};
    }