#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hash;

$hash{'A'.'B'} = 1;
# note a mistakenly written comma between 'C' and 'D'  
$hash{'C','D'} = 2;
$hash{'E','F'} = 3;

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

##</code><code>##

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

##</code><code>##

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,.|
20 20 20 20 20 20 20 20  20 20 27 45 1c 46 27 20  |          'E.F' |
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.|