Select Code to Download

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);