while($evalue = <DATA>){
chomp;
   if($evalue < 0.001){
      print OUTPUT $evalue, "\n";
    }
}
close DATA;

##</code><code>##

DATA
-----------
1e-005
2e-090
0.00
0.67
1.0
4e-065

##</code><code>##

OUTPUT (wrong)
-----------
1e-005
2e-090
0.00
0.67
1.0
4e-065

##</code><code>##

OUTPUT (correct)
-----------
1e-005
2e-090
0.00
4e-065