Select Code to Download

@a = 'A'..'J'; 
for my $r ( map { k=> $_, v=> $a[ $_ ] }, 0 .. $#a ) { 
...
7 H
8 I
9 J

@a = 'A'..'J'; 
for my $r ( map [ $_, $a[ $_ ] ], 0 .. $#a ) { 
...
7:H
8:I
9:J