my %mutperc;
while (<FILE>)
{
	chomp;
	$countentry++;
	($acc, $freq, $perc) = split ("\t");
	$accession = $acc; 
	push @{$mutperc{$accession}}, $perc;
	$" = "\t";
}

close (FILE);


foreach my $accession (sort {$mutperc{$b} <=> $mutperc{$a}} (keys %mutperc))
{
	if(grep $_ > 10 , @{$mutperc{$accession}})
	{
		print "$accession\t@{$mutperc{$accession}}\n";
		$countprint++;
	}
}
print "$countentry\t$countprint\n";

##</code><code>##

T373I	24.3902439	16.36363636	7.142857143	9.090909091

V100I	36.58536585	61.81818182	85.71428571	96.66666667	100

L122Q	97.56097561	100	100	100

##</code><code>##

T373I	24.3902439	16.36363636	7.142857143	9.090909091	0

V100I	36.58536585	61.81818182	85.71428571	96.66666667	100

L122Q	0	97.56097561	100	100	100