foreach my $file (@$exc) {
  $skip=1, last if ($_ eq $file);
}