Help for this page
foreach my $name (sort keys %seen) { printf "%-6s: %-2d\n", $name, $seen{$name}; }
dave : 2 james : 2 jon : 5 ken : 3 mike : 3
printf "%-6s: %-2d\n",$_, $seen{$_} for (sort keys %seen);