my $x = 0;
my $y = sub { $_[0] }->($x); ## my $y = .. assignment operator

$y = 5;
print "$x\n"; ## still 0