my @lines = qw/a b c d e/;
my $total = @lines;

##</code><code>##

$lines[5]

##</code><code>##

for my $i (0..$total-1) {
...

##</code><code>##

my $total = grep $_ ne "\n", @lines;