Good one, Masem!

my @list = ();
my @dummy = qw(one two three four five six seven eight nine ten);

while(scalar @dummy) {
  unshift @list, scalar @dummy;
  pop @dummy;
}
[download]

I was originally going to try something similar with a successor function, using a gibberish string to intify to zero, then I hit on the idea of using scalar @list for numbers, and, well....