I don't have time now to test how fast it is, but these are two idiomatic ways of doing in Perl 6, both using a pointy block with two loop variables (only one of which is actually used).

With the range operator and reverse:

for (1..10).reverse -> $x, $y { say $y}
[download]

And using the sequence operator which can build a reversed list:

for 10...1 -> $x, $y {say $y }
[download]