Select Code to Download

use Data::Dumper;
%one = ( 'a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5, 'f' => 6,);
...
%tmp = %two;
delete @tmp{keys %one};
print Dumper(\%tmp);

$VAR1 = {
          'e' => 5,
...
          'i' => -3,
          'o' => -4
        };