use Machine::Epsilon;
for (my $x=0.8; $x > 0.1; $x -= 0.01) { 
  print "".($x+(2*machine_epsilon()))."\n"; 
}