ファイル内でグローバルにシンボルを共有させるモジュありませんか？
パッケージ宣言するごとにインポートするのは面倒くさいです。

出来ればこんな感じで。
package A;
use aaa a => "GLOB"; # タイプグロブごと共有
$a = "AAAA";
@a = (split(//, $a));
%a = @a;
sub a () {$a}

package AAA;
print("$a @a %a\n");
print(a) while 1;