use Data::Dumper;

my @array1 = qw /foo bar baz/;
my @array2 = qw /qux quux quuux/;
my %hash;

$hash{'array1'} = [@array1];
$hash{'array2'} = [@array2];

print Dumper %hash;
print $hash{'array1'}[0];