$mit[$index] = -1;
shift sort @mit;