sub foo { print "<$_>\n" }
for (qw/a b/) {
	foo;
	for my $_ (qw/x y/) {
		foo;
	}
}
__END__
Use of my $_ is experimental at - line 4.
<a>
<a>
<a>
<b>
<b>
<b>