#! /usr/local/bin/perl -w

use strict;
use YAML;

my $r = [
        1, 2, { a => [2, 3], b => [4, 5, 6] },
        { c => { d => 'd', e => 'e', f => [6, 7, 8] }, d => [10, 20, 30] },
];

print YAML::Dump($r), "\n";