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

##</code><code>##

$scalar = 
_END_

##</code><code>##

my @array
foreach (@array) {
	print "\$array[x] = $_\n";
}
print "_END_\n";

##</code><code>##

_END_

##</code><code>##

my @array
$array[0]	=	"";
foreach (@array) {
	print "\$array[x] = $_\n";
}
print "_END_\n";

##</code><code>##

$array[x] = 
_END_

##</code><code>##

my @array
$array[0]	=	"";
$array[1]	=	"foo";
foreach (@array) {
	print "\$array[x] = $_\n";
}
print "_END_\n";

##</code><code>##

$array[x] = 
$array[x] = foo
_END_