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

##</code><code>##

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