#!/usr/local/bin/perl5 -w
use strict;

for (my $i = 20 ; $i >= 1 ; $i -= 1){
  printf "%f\n", $i/10;
}