my %hash = (
   A => W,
   B => R,
   C => T,
);

my $letter = 'A';

print "Letter : $letter\n";        ## prints "Letter : A"
print "Letter : $hash{$letter}\n"; ## prints "Letter : W"