#!/usr/bin/perl

use strict;

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

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