#Example data:
#Query= 16sV5:44:FC62N5DAAXX:7:1:18808:1248 1:N:0:
#1111599 AB563244.1 Streptococcus macedonicus str. W28                
#1111215 AB563262.1 Streptococcus equinus str. MTS6
#repeats thousands of times...

while (my $line = <IN>) {
   chomp $line;


   if ($line =~ /Query=/) {

   } else{
   my @hit = split (/\s/, $line);
   my %genus = ($hit[2] , 1) ;

   if (exists ( $genus {$hit[2]})) {   
       $genus{$hit[2]}++;                 
   }   else{                                        
           $genus{$hit[2]} = 1;           
       }
            my @keys = keys %genus;
            my @values = values %genus;
            print "@keys\n@values\n";
   }
   next;
}