sub template
{
	my $uplevel = shift;
	$uplevel->('print $x;');
	$uplevel->('print $y;');
}

my $x = 'X';
for my $y (1 .. 3) 
{ 
	template( sub{eval(shift)} );
};