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