Select Code to Download

$hash1{$_} = $hash2{$_} for keys %hash2;

@hash1{keys %hash2} = values %hash2;

$combined{$k} = $v while my ($k, $v) = each %hash2;