sub s_index{
 my $pos = 0;
 my $cnt = 0;
 while (index($str, $sep, $pos)){
  $pos++;  
  $cnt++;
 }
 $cnt{s_index}=$cnt;
}