#!/usr/bin/perl 
 
%sampleHash = (); 
@array1 = ('a','b','c'); 
@array2=("x","y","z","s"); 
$sampleHash{"hash1"} = @array1; 
$sampleHash{"hash2"} = @array2; 
 
print $sampleHash{"hash1"}[0];