foreach(@sof_i)
{
    $sof_to_delete++;
}
shift @sof_i for (0..$sof_to_delete)