#!/usr/bin/perl

use Test2::V0;

for my $mod (11, 4) {
    grep {
        !($_ % $mod) and !fail "$_ failed";
    } 1 .. 10 or pass "all passed mod $mod";
}

done_testing;

__DATA__
# Seeded srand with seed '20211107' from local date.
ok 1 - all passed mod 11
not ok 2 - 4 failed
# Failed test '4 failed'
# at /home/jo/Programs/play-scripts/test-many-grep.pl line 6.
not ok 3 - 8 failed
# Failed test '8 failed'
# at /home/jo/Programs/play-scripts/test-many-grep.pl line 6.
1..3