Select Code to Download

#!/usr/bin/perl
my (@ar1, @ar2);
...
for my $i (0..$#ar2) {
   print("   $i : $ar2[$i]\n");
}