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