Select Code to Download

#!/usr/bin/perl

...

print Dumper(\%hash);
print exists $hash{'CD'} ? "YES\n" : "NO\n";

$VAR1 = {
          'CD' => 2,
...
          'AB' => 1
        };
NO

24 56 41 52 31 20 3d 20  7b 0a 20 20 20 20 20 20  |$VAR1 = {.      |
20 20 20 20 27 43 1c 44  27 20 3d 3e 20 32 2c 0a  |    'C.D' => 2,.|
...
3d 3e 20 33 2c 0a 20 20  20 20 20 20 20 20 20 20  |=> 3,.          |
27 41 42 27 20 3d 3e 20  31 0a 20 20 20 20 20 20  |'AB' => 1.      |
20 20 7d 3b 0a 4e 4f 0a                           |  };.NO.|