Select Code to Download

use strict;
use warnings;
...
  grep { $_->{EMPLOYEES} =~ /jim/ } @records;

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

Found Widget Co.