for my $case ( @cases ) {
    eval {
      if (!interesting($case)) {
         next;
      } 
      process($case);
    };
    if ($@) {
      print "$case had errors:$@";
    }
  }