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";