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