use List::MoreUtils qw( apply );
my @CLEANED = apply { tr/\000//d } @EMPLOYEES;