Select Code to Download

for my $i (0 .. $#titles){
    ...
}

perl -wMstrict -E 'my @x=(qw(a b c)); say "$_: $x[$_]" for (0..@x)'
0: a
...
2: c
Use of uninitialized value in concatenation (.) or string at -e line 1
+.
3:

perl -wMstrict -E 'my @x=(qw(a b c)); say "$_: $x[$_]" for (0..$#x)'
0: a
1: b
2: c