@a = 1 .. 9;;

print "$_ : -$_ :  $a[ -$_ ]" for 1 .. @a;;
1 : -1 :  9
2 : -2 :  8
3 : -3 :  7
4 : -4 :  6
5 : -5 :  5
6 : -6 :  4
7 : -7 :  3
8 : -8 :  2
9 : -9 :  1