P:\test>p1
# 2368k
@r = 1 .. 1000000;
# 62804k
@r = reverse @r;
# 62812k
@r = reverse 1, @r;
# 71020k