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