$ cat /tmp/p
#!/usr/bin/perl -w

my $x = 1;
END {
    sub { print "x=$x\n" }->();
}
$ perl586 /tmp/p
Use of uninitialized value in concatenation (.) or string at /tmp/p line 5.
x=
$ perl590 /tmp/p
x=1
$