perl -Mstrict -Mwarnings -MData::Dumper -MYAML -le ' my @episode = ( q{The Librarians} => { q{1} => [ q{And the Crown of King Arthur}, q{And the Sword in the Stone}, q{And the Horns of a Dilemma}, q{And Santa"s Midnight Run}, ], q{2} => [ q{And the Apple of Discord}, q{And the Fables of Doom}, q{And the Rule of Three}, ], q{3} => [ q{And the Heart of Darkness}, q{And the City of Light}, q{And the Loom of Fate}, ], }, ); YAML::DumpFile( q{test.yml}, \@episode, ); my @stories = YAML::LoadFile( q{test.yml} ); print Data::Dumper->Dump( [ \@episode, \@stories, ], [ qw( *episode *stories ) ] ); '