use strict;
use warnings;
use YAML;
use Data::Dumper;

my $stuff = <<YAML;
---
Baked Goods:
  - Cookies:
      - Chocolate Chip
      - Oreo

Fruits:
  - Apples:
      - Fuji
      - Granny Smith
  - Oranges:
      - Tangerine
      - Navel
YAML

my $perl_structure = Load $stuff;

print Dumper \$perl_structure;