#...
   grep_line =>
        sub {
            grep { $_ eq TEST and return 1 } @Array;
            return;
        },
    for_line =>
        sub {
            TEST eq $_ and return 1 foreach @Array;
            return;
        }
#...