Having both  #!/usr/bin/perl -w and use warnings; is not good, read perllexwarn to learn why.