for (my $i = 2 ; $i >= 0.1 ; $i -= 0.1){
  print $i, "\n";
}

##</code><code>##

2
1.9
1.8
1.7
1.6
1.5
1.4
1.3
1.2
1.1
0.999999999999999
0.899999999999999
0.799999999999999
0.699999999999999
0.599999999999999
0.499999999999999
0.399999999999999
0.299999999999999
0.199999999999999