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

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