Select Code to Download

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

%h  = (a=>"A", "b"=>"B", "bb" => "B");
for ( keys %h )
{
  print $_ if $h{$_} eq "B";
}