for $i (0..$#start){
  $seq[$i] = substr($sequence, $start[$i], $stop[$i]);
}