I am new to perl and somehow I wrote the code in perl.

You would be the first perl beginner of all time to concoct such a piece of code. If you did.