use strict;
use warnings;
my $x = 3;
my $sub = sub :lvalue {$x};
print "$sub\n";
print "$x\n";
&$sub = 5;
print "$x\n";