#!/usr/bin/perl
use YAML;
my %hash = qw/Blue 1 Cow 3/;

print Dump(\%hash);