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