Thanks BrowserUk. This reduced the performance by a huge magnitude. Now its taking only about 22 seconds. This was the first time I used array references, but yes I did realize the mistake.
I agree with your naming convention advise and will start using strict;
I am still newbie with perl and learning all the best practices.
Thanks,
Stan