splice @clean, $i, 1;
    $i--;