Stick to using integers if you can:

for (my $i = 20 ; $i >= 1 ; $i -= 1){
print $i/10, "\n";
[download]

or even:

foreach  my $i (reverse (1..20)){
print $i/10, "\n";
[download]