You can't do what you want without looping, since every key needs to be visited. In fact, you need three loops.

for every company
   for every employee of the company
   for every family member of the company
[download]

But yes, you can use grep to loop.

my @companies = grep {  grep { $_ eq 'jim'  } @{$_->{EMPLOYEES}}
                     && grep { $_ eq 'bill' } @{$_->{FAMILY_MEMBERS}}
                     }
                keys %CompanyInfo;
[download]

Your data structure seems to be wrong. You show something that could be described as HoHoH, but I suspect you should really have a AoHoA. Consider:

use strict;
use warnings;

my @records = ({
        EMPLOYER                 => "Widget Co.",
        EMPLOYEES                => "jim",
        EMPLOYEES_FAMILY_MEMBERS => ["susan", "bill"],
    },
    {
        EMPLOYER                 => "Widget Co.",
        EMPLOYEES                => "john",
        EMPLOYEES_FAMILY_MEMBERS => ["liz", "bill"],
    },
    {
        EMPLOYER                 => "Foo Ltd.",
        EMPLOYEES                => "jim",
        EMPLOYEES_FAMILY_MEMBERS => ["karen", "bob"],
    },
    );

my @selected = grep { "@{$_->{EMPLOYEES_FAMILY_MEMBERS}}" =~ /bill/ }
  grep { $_->{EMPLOYEES} =~ /jim/ } @records;

print "Found ", join (", ", map { $_->{EMPLOYER} } @selected), "\n";
[download]

Prints:

Found Widget Co.
[download]

I did not understand your indention, you need to use tags in your messages ;)

i was try to understand your hash and i stoped here

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %hash = (
    'record' => {
        'employees' => {
            'foo'  => 'lorn',
            'bar'  => 'perlmonks',
            'quux' => 'lornlab',
        }
    }
);

my $employees = $hash{record}->{employees};

foreach my $key ( keys %{ $employees } ) {

    if ( $key =~ /foo/ ) {
        print "$key - " , $employees->{$key}, "\n";
    }

    if ( $key =~ /f\w{2}/ ) {
        print "$key - " , $employees->{$key}, "\n";
        
    }
}
[download]

....

after a little help, with hash of the Articuno said: "this guy need a database simple, or not, like http://www.sqlite.org/ "

DBM::Deep might be an option, too.

GrandFather - I changed my code to arrays of arrays ... and used your grep examples. Works great. Thanks for the help.