@items = qw(1 2 3 4 5 6 7 8 9);
for ($i = $#items; $i >= 0; $i--) {
    print "$i $items[$i]\n";
}

8 9
7 8
6 7
5 6
4 5
3 4
2 3
1 2
0 1