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


##</code><code>##

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