There's lots of good advice on how to work out why you code isn't doing what you want in basic debugging checklist

Why not use the perl debugger, perldebug to step through your code and see what it actually does?