sub getGI
{
open(FILE, "twentySeq1e-10.out") or die("Cannot open file");
while(<FILE>)
{
my $line = $_;

if($line=~/# 0 hits found/)
{
print "$line\n";
}
}
}