for (0..$#array) {
	print $array[$_],',';
}