Modification of a read-only value attempted at simple.pl line 2.

Of course, you could fix that with local:
31244)){ local $_
However I suspect most people around here fear your message. JASK implies ignorance of the underlying code, which is the opposite of what this site is about.