#...
   grep_line =>
        sub {
            my($test, $ra) = @_;
            grep { $_ eq $t and return 1 } @$ra;
            return;
        },
    for_line =>
        sub {
            my($test, $ra) = @_;
            $test eq $_ and return 1 foreach @$ra
            return;
        }
#...