Select Code to Download

use strict;
use Data::Dumper;
...
               $index++;}}}}

print "Matched: ($matched) ", Dumper \@found;

@found = grep { ! exists %members{ lc $_->{ID} } } @found;

if ( $emp->{ID} =~ /$some_regex/i ) {
    push @emp_found => $emp;
...
else {
    push @emp_ot_found => $emp;
}