my %eats = (
   Tom   => [ qw(       apple orange pear ) ],
   David => [ qw( mango apple             ) ],
);

foreach my $eater (keys %eats) {
   my $fruits = $eats{$eater};
   foreach my $fruit (@$fruits) {
      printf("%-6s %s\n", $fruit, $eater);
   }
}