Use of uninitialized value $i in array element at /home/neil/src/perltest/foo.pl line 25. label kept