Well done !
But you should know that I leave a space between my and $i to get rid of a:
'Missing $ on loop variable' error message with my Perl(5.0 patchlevel 5 subversion 3 on linux)

"Only Bad Coders Badly Code In Perl" (OBC2IP)