Select Code to Download

my %color_of = (
    "apple"  => "red",
...
my %rev_color = ();
foreach my $key ( keys %color_of )
{   $rev_color{ $color_of{ $key } } = $key; }

print "Var = $var, Get Result $rev_color{ $var }\n";