in reply to Perl Beginner
First, can you describe what you observe to be the problem with the code (it does what when you want it to do what)?