our $global_obj;

$global_obj = 1234;
my $sub = sub { print($global_obj, $/); };
$global_obj = 5678;
&$sub();  # Prints 5678.