#!/usr/bin/perl
# Jaime Prilusky 2012
use YAML::Any;

  my %mammals = (
    "Ornithorhynchus anatinus" => 54,
    "Tachyglossus aculeatus"   => 64,
    "Gorilla gorilla"          => 48,
    "Homo sapiens"             => 48,
    "Pan troglodytes"          => 48,
    "Pongo pygmaeus"           => 48,
  );

  my @days = qw(Sun Mon Tue Wed Thu Fri Sat);

  my $yamlF = "/tmp/testYAML.txt";

  YAML::Any::DumpFile($yamlF,\%mammals,\@days);

  my($ref1,$ref2) = YAML::Any::LoadFile($yamlF);

  print join("\n",@{$ref2});