while (defined($_ = shift(@sof_i)) {
   ... body of your foreach (@sof_i) ...
}