#!/usr/bin/perl -w
use strict;
use Data::Dumper::Lite;

my @array = qw(foo bar baz);
my %hash = (
  foo => \@array,
  bar => 'none',
  baz => 42,
);
my $dumper = Data::Dumper::Lite->new();
print $dumper->Dump(\%hash);