In cases like this:

#!perl -w
use strict;

my $a = sub { sub { "thingy" } };

print $a->()();
[download]