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