%h = (
'word1'=>[2,3],
'word2'=>[\$h{'word1'},3],
'word3'=>[1,2]
);
print "$h{'word2'}[0]\n";