This post seems to be much the same as a node posted in a thread stemming from First foray into Perl; indeed, it even bears an equally uninformative title. It also has apparent problems with example data queried here and here and as yet unaddressed.

You still seem to be receiving help in response to the former post. Is there any reason for this latest post?