Select Code to Download

my @a; ...
my $na; my $Na;
...
$Na = ( 0, 1..$na );
@a = ...;
for my $i (@Na)...

for my $i (0 .. $#a)

use strict;
use warnings;
...
    my @c = split("\n",  $b[$i]);
    printf("%s%s%s\n\n", $a[$i], ($i ? '/' : ''), $c[$_]) for (0 .. $#
+c);
}