グローバル変数はダメといわれたので、use strictを使ってみました。
まだメリットがよくわからず、正直、面倒くさいんですが……

すると、$PI=3.1415926535,$E=2.71.... をほぼ全てのサブルーチンに書くことになってしまいました。
グローバル変数のままだとファイルの先頭の方に一回だけ $PI と書けば良かったのです。
今は sub でサブルーチンを定義するたびに$PI を定義する必要があります。

皆さんuse strictしたときに定数を使用するときにはどうされているのでしょう?
自分の考えとして
(1)全サブルーチンで定義する
(2)$PI と書いていたところをすべて $main::PI に置換
(3)sub PI{ return 3.1415926535 } として $PI を PI に置換
などがあると考えたのですが、他に何かいい方法は無いでしょうか?
プログラム全体で適用される定数用のマクロ定義みたいなのは無いのでしょうか。