use strictモダンPerlの代表です。use strictを使用すると主に3つの機能を提供してくれる。use strict 'refs'; # シンボリックリファレンスの無効化use strict 'vars'; # 宣言の強制use strict 'subs'; # 適当な最適化を禁止し明確にする■use strict 'refs'…