Note that questions about Perl should be posted to Seekers of Perl Wisdom - I tried to move your post but it seems something went wrong (Update: nevermind, looks like it did work). Also, as I already messaged you, please use <code> tags to format code, as well as sample input and output.