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