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