for (0 .. $#array) {
    next if $array[$_] =~ /^\d/;  # okay, weiter
    splice @array, $_;            # alles ab hier abschneiden
    last;                         # abbrechen
}