use strict;
use warnings;
use Cwd;
use List::Compare;
use List::AllUtils qw(:all);

my $ref_filelist = $ARGV[0];
my ($lable1, $line, $i, $contig, $accession, $organism, $eval, $con_length, $map_length);
open(FILELIST, $ref_filelist )
   or die "Could not open Reference filelist...($!)";
   
my %count;
while (<FILELIST>){
	
	my @tab_list =( $contig, $accession, $organism, $eval, $con_length, $map_length ) = split ( '\t',);
	++$count{$organism};
	
	
} 
foreach (keys(%count)) {
   		
   print "$_: $count{$_}\n";  
#####Sub not used in code yet#####
sub medianeval{
	
	my $ref_filelist_1 = $ARGV[0];

my ($lable1, $line, $i, $contig, $accession, $organism, $eval, $con_length, $map_length);
open(FILELIST1, $ref_filelist_1 )
   or die "Could not open Reference filelist...($!)";
 
my %table;
   while ($line = <FILELIST1>) {
chomp $line;

	my @tab_list = ( $contig, $accession, $organism, $eval, $con_length, $map_length ) = split ( '\t', $line );
	$table{$organism} = [] unless exists $table{$organism};
	push @{$table{$organism}}, $eval;
   }
foreach $organism (sort keys %table) {
print "$organism: ";
 my @eval = @{$table{$organism}};
 
 my @eval_ref = sort {$a <=> $b } @eval;
 my $median = $eval_ref[($#eval_ref / 2)];
 
 
print "$median\n";
}
}