d:\tmp>test.pl
$VAR1 = {
          'A H' => undef,
          'A Ha' => undef
        };