use YAML;
$YAML::Indent = 5;

my %HoA = (
       flintstones        => [ "fred", "barney" ],
       jetsons            => [ "george", "jane", "elroy" ],
       simpsons           => [ "homer", "marge", "bart" ],
     );


print Dump(
    \%HoA,
    [ { 1 .. 4 }, { 6 .. 9 }, [ 6, [ 6, [6] ] ] ],
    [ [ [[[[1],1],1],1], 1 .. 2 ], 1 .. 3 ],
);
__END__
---
flintstones:
     - fred
     - barney
jetsons:
     - george
     - jane
     - elroy
simpsons:
     - homer
     - marge
     - bart
---
- 1: 2
  3: 4
- 6: 7
  8: 9
-
     - 6
     -
          - 6
          -
               - 6
---
-
     -
          -
               -
                    -
                         - 1
                    - 1
               - 1
          - 1
     - 1
     - 2
- 1
- 2
- 3