$count{$a}= sprintf("%0.1f",($count{$a}/length($seq{$k}))*100);