foreach (@list_of_20_000_files) {
  my $p = XML::Parser->new;
  eval { $p->parsefile($_) };
  if ($@) {
    print "$_ is bad\n";
  } else {
    print "$_ is good\n";
  }
}