すみません。
質問なのですが、

特定の関数の中の変数の一覧を取得することってできないでしょうか？

sub hoge {
my $a;
my $b;
my $c;
fuga();
}

sub fuga {
# ここで、呼び出し元のhoge()内に変数 $a $b $cを参照したい
}

普通に引数で渡したり、グローバル、オブジェクト等使え と思うかもしれませんが、
fuga();
だけの呼び出しで実現したいのです。
%{パッケージ名::}で関数一覧は取得できるので、似たような方法でできる気がするのですが・・・