noone's mentioned it yet, so i'll ask... why are you using -w and use warnings?

use -w for backward compatibility. require 5.006; use warnings; for new code. don't use both, you'll get into trouble that way. read perllexwarn for more -- specifically What's wrong with -w and $^W.

~Particle *accelerates*