#!/usr/bin/perl


my $search = "red";

my %fruit = (
   'apple' => ['red','green'],
   'kiwi' => 'green',
   'banana' => 'yellow',
  );


my ($match) = grep { $fruit{$_} eq $search } keys %fruit;

print "\n\n Match = $match\n\n";