無名関数を定義するまえに変数$varを存在させとけばいい
つまりこうだ
my $var;
$var = sub() {… $var->(); …};