my ($x, $y, $z);
my $callback = sub { print $x, $y, $z, "\n" };

($x, $y, $z) = (1, 2, 3);
$callback->();

($x, $y, $z) = (4, 5, 6);
$callback->();