use YAML;

my $map_of_lists =
  {
   fruits => [qw(apples oranges pears)],
   meats => [qw(beef pork chicken)],
   vegetables => [qw(carrots peas corn)],
  };

print YAML::Store($map_of_lists);
