use strict; use diagnostics;
my @aa = ([1,2],[3,4]);
for (@aa) {
	for (1..3) {
		print $_;
		last;
	} 
print "forfor=$_\n";
}
my @bb = ([5,6],[7,8]);
for (@bb) {
	while (<STDIN>) {
		print "while=$_\n";
		last;
	} 
print "forwhile=$_\n";
}