use YAML ();
my $data = "--- #YAML/1.0\n";
$data .= <<'EOT';
somekey: somevalue
otherkey: othervalue
EOT;

$data .= "zorch: wubba";

my $hash = YAML::Load( $data );