Programa Perl para cojer solo E-values menores a 10-4