#! perl
use strict;
use warnings;

my %sampleHash = ();
my @array1     = ('a', 'b', 'c');
my @array2     = ('x', 'y', 'z', 's');

$sampleHash{hash1} = \@array1;
$sampleHash{hash2} = \@array2;

print $sampleHash{hash1}[0];