#! /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";

##</code><code>##

---
- 1
- 2
- a:
    - 2
    - 3
  b:
    - 4
    - 5
    - 6
- c:
    d: d
    e: e
    f:
      - 6
      - 7
      - 8
  d:
    - 10
    - 20
    - 30