my $scalar;
foreach ($scalar) {
	print "\$scalar = $_\n";
}
print "_END_\n";