my $foo = sub { 2 * shift };