my $x = sub {1; };
print $x->();