Select Code to Download

for $x (keys %one) {
  delete $one{$x} if $two{$x} eq $one{$x};
...
for $x (keys %one) {
  print "$x ($one{$x})\n";
}

for $x (keys %one) {
...
for $x (keys %two) {
  print "DIFF2: $x\n" unless $one{$x};
}