my $x = 0;
sub { $_[0] = 5 }->($x);

print "$x\n";