Select Code to Download

my %eats = (
   Tom   => [ qw(       apple orange pear ) ],
...
      printf("%-6s %s\n", $fruit, $eater);
   }
}

sub nice_list {
   return ''    if @_ == 0;
...
   print("$num_eaters person$p eat$s ${fruit}s: ",
         nice_list(@$eaters), "\n");
}