for ($i=0;$sof_to_delete>0;$sof_to_delete--)
        {shift(@sof_i);