while ($extra2 <= $#$text) {
        $text[$extra4] = $$text[$extra2];
        $extra2++;
        $extra4++;
    }