#!perl -w
use strict;

my %h = (
word1 =>[2,3],
word3 =>[1,2]
);
$h{word2} = [ $h{'word1'},3],
$h{word4} = [ @{ $h{'word1'} },3],

print $h{'word2'}->[0]->[0], "\n";       # Alternative1
print @{ @{ $h{'word2'} }[0] }[0], "\n"; # Alternative1

print @{ $h{'word4'}}[0], "\n";          # Alternative2
print $h{'word4'}->[0], "\n";            # Alternative2

__OUTPUT__
2
2
2
2