octal error in perl program

I am trying to take the advice of fishmonger (make my code use an array)
Even though I'm slowed because I forgot alot of vi, here are my:
1) Perl script
2) screen copy of error screen when I use my alias "'r" to run "perl array.pl"
arrays.txt
octalPic.png