#!/usr/bin/perl -w
use strict;

for (my $i = 2 ; $i >= 0.1 ; $i -= 0.1){
  printf "%.1f\n", $i;
}

##</code><code>##

2.0
1.9
1.8
1.7
1.6
1.5
1.4
1.3
1.2
1.1
1.0
0.9
0.8
0.7
0.6
0.5
0.4
0.3
0.2