use 5.012;
use strict;
use warnings;

use Acme::Asplode;

sub bar
{
	asplode($x, $y);  # steal lexical variables from our caller!
	say $x;
	say $y;
	asplode @A, $z;  # steal moar lexicals!!!
	say $z;
	$z++; # alter our caller's lexical variable!!
	say for @A;
};

sub foo
{
	my $x = 1;
	my $y = 2;
	my $z = 3;
	my @A = qw(a b c);
	bar();
	say "Z is changed: $z";
}

foo();