I would suggest stepping through the program with a debugger or adding a print join " ", @files; print "\n"; at the end of your loop to find if your @files array is getting munged somehow. That is where my first guess at the problem would be.

My second guess would involve permission issues and or failure of the move as suggested by others.

And my final guess would involve issues with your installation of perl under windows...

My working test code