Select Code to Download

my %emp = (
...
    #    .....
);

my %OrgEmp;
push @{ $OrgEmp{$_}{Org}}, $emp{$_}{Emp} for keys %emp;

my $re_org = qr[ '(' . join('|', qw[ABC DEF ...]) . ')' ]o;
...
    push @{ $OrgEmp{$1} }, $emp{$empNo}{Emp} if $emp{$empNo}{Org} =~ $
+re_org;
}

for my $org (keys %OrgEmp) {
...
    close OUT;
}

my %groups = map{
...
    }
}