Select Code to Download

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

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