$id = -1;
foreach (@substr)
{
   my $id = index($str,$_,$id);
   print "$id\n";
   $id += length($_);
}