DB<1> @lines=@{"_<2.pl"} ; for my $i (0 .. $#lines) { CORE::say $lines[$i] == 0 }
1
1
1
1
1
1



1