>>15 なるほど、それでは多分そこが原因っぽいですね。
多分、そこさえ追加すればいいと思いますが、慎重に言ってみましょう。

まず、
my $cfg = $sow->{'cfg'};
を追加して動くことを確認お願いします。