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

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