$ perl -e '@a = (1, 2, 3); for (0..@a) { print "A$_:  $a[$_]\n" }' 
   A0: 1
   A1: 2
   A2: 3
   A3: