#!/usr/bin/perl
use strict;
use feature qw{ say };
use warnings;

my $x = 10;
for my $i (1 .. 10) {
    $x += $i;
}

##</code><code>##

perl -d 2.pl

##</code><code>##

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



1



1


##</code><code>##

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



1