# nicht ok
my $blubb = sub { $blubb };

# ok:

my $blubb;
$blubb = sub { $blubb };