#!/your/perl/here
use strict;
use warnings;

use Data::Dumper;

my @array = 0..4;
print "\@array ", \@array, "\n";
print Dumper @array;

my %hash;
$hash{one} = \@array;
print "\%hash x1\n";
print Dumper %hash;

my @array = 'a'..'e';
print "\@array ", \@array, "\n";
print Dumper @array;

$hash{two} = \@array;
print "\%hash x2\n";
print Dumper %hash;

print "";