my $j=0;
if (m/^,/, $i){
	print $j++ . ": " . $i . "\n";
}

##</code><code>##

0: item1
1: ,field2
2: ,more data