Bonjour,

Si le pragma "use strict" est utilisé (ce qui est très fortement conseillé), il faut déclarer les variables avec le mot-clé 'my'.

Ici dans ta boucle, il manque le 'my' devant $i :
...