sub filter_by_Species
{

print 'New Blast File Opened<BR>';

open(my $newalign, '<', "blast_files/$newBlastFile") or die $!;

print 'Filtering Data........Please wait<P>';

my @subjects;

while <$newalign>
{    
    push @subjects, $_ if (/^>gi/)
}


print '<TABLE BORDER=2>';
print '<th align=center><B>Status</B></th>';
print '<th align=center><B>Information on new hits</B></th>';

for (@subjects)
{
    chomp;
    my @elements = split '\|';
    if($elements[-1] =~ /$species_filter/)
    {
        print "<TR><TD>Match to $species_filter";
        show_Output(0, $_, @elements);
    }
}

print'</TABLE><BR><BR>';
}