use Algorithm::Loops qw( Filter );
my @CLEANED = Filter { tr/\000//d } @EMPLOYEES;