Select Code to Download

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

$lines[5]

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

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