%h  = (a=>"A", "b"=>"B");
%h2 = reverse %h;
print $h2{A}; #a