my $x = sub { print shift };