If you put <code> and </code> tags around your actual perl code, it will be easier for us to follow.