perlならuse strictが定番だが、そもそも何に苦労してるんだ?