my( @found ) = grep { grep $_ eq $search, @{ $fruit{ $_ } } } keys %fruit;