in reply to Key value pair in hash inside while loop

When I run your code on the data sample, I get 
A       25
C       25
G       25
U       25

[download]

What do you mean by "value as zero"? What output do you expect?

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom