Select Code to Download

use strict;
use warnings;
my %hash = ( "rabbit" => "pap", "triangle" => "tri" );
my $key = "rabbit";
print $hash{$key};    # prints "pap"