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