I came up with this:

#!/usr/bin/perl

use strict;
use warnings;

my $search = $ARGV[0] || '';

if(!$search) {
  print   "\n\n Need a color word to search! \n\n";
  exit;
}

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


my ($result) = grep { grep { $_ eq $search } @{$fruit{$_}} } keys %fru
+it;

print "\n\n Result:::: --> $result \n\n";
[download]