use Data::Dumper;

my @array = 1 ..5;
my %hash = (a => @array, b => 'foo');

print Dumper \%hash;