print $hash{"keya"}->[2][1];

##</code><code>##

use Data::Dumper;
...
print Dumper(\%hash);

##</code><code>##

print Dumper(%hash);