note
Utilitarian
Please explain what the line <c>$data=<FH></c> does and why it is there?<p>
Secondly, why would you want to enumerate occurrences of unique things in any other way than as a hash? <p>
You're new to Perl and so it seems an odd data type, but once you get used to using them hashes are a phenomenally useful tool.<p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-681898">
<c>print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."</c>
</div></div>
1018535
1018535