for ($x=0.8; $x > 0.1; $x -= 0.01) { print "$x\n"; }