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