use strict;

my %var = (
   A => 'YES',
);

print $var{A}, "\n";