Help for this page

Select Code to Download

Select or download this

my %two;
foreach my $key ( keys %one )
{
    $two{ $key } = [ @{ $one{ $key } } ];
}