subtest "All lines are like expected" => sub {
    like $array[0], qr/regex1/;
    like $array[1], qr/regex2/;
    ....
    is scalar @array, $nnn, "No extra lines";
};