for my $k (keys %one) {
    $two{$k}[$_] = $one{$k}[$_] for 0..scalar( @{$one{$k}} );
}