my( @found ) = grep { ( ref $fruit{ $_ } eq 'ARRAY' ? (grep { $_ eq $search } @{ $fruit{ $_ } } ) : $fruit{$_} eq $search ) } keys %fruit;