Help for this page
@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