Help for this page
my %h = ( 'word1'=>[2,3], ... $h{word2}[0] = $h{word1}; print "@{$h{word2}[0]}\n"; __END__