perlはmyつけなかったら全てグローバルだよな・・・
$_とかいがい