Perhaps the Basic debugging checklist would help shorten the debug cycle in the future, particularly tips #1 and #2:

#1 use warnings; would have spewed many warnings which may have lead you to your problem.

#2 print "i = $i\n"; inside your for loop