use signatures;
my $lamb = sub ($x) { $x = 4 };
my $y = 3;
$lamb->($y);
print("$y\n");  # 3  XXX want 4