use strict;
use warnings;

use Dumpvalue;

my $ref = {
          dat => [ 1, 2, 3, 4, 5 ],
          mix => [
                 { A => 1, B => 2 },
                 {
                  X => [ 1, 2, 3 ],
                  Y => [ 4, 5, 6 ],
                  Z => [ 7, 8, 9 ]
                 },
               ],
          };

Dumpvalue->new->dumpValue($ref);