my $x    = 0;
my $arr = sub { \@_ }->($x);

$arr->[0] = 5;
print "$x\n"; # 5