root@swill ~/PerlMonks
$ ./AscDesc.pl
0: 0, 0, 0
1: 0, 2, 4, 6, 8
1: 1, 3, 5, 7, 9, 11
-1: 10, 9, 8, 7, 6, 5
-1: 5, 3, 1, -1, -3, -5
0: 1, 2, 3, 3, 4
root@swill ~/PerlMonks
$