#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @array = qw( test this now);
my %hash = ( one => 1, two => 2);

print Data::Dumper->Dump([\%hash, \@array], [qw(*hash *array)]);