Böse ist das nicht, aber funktionieren tuts auch nicht.
Perl unterscheidet nicht zwischen funktion und methode.
Du bügelst mit deiner 2. choose die 1. einfach über.

Und dann passiert folgendes: Die 4 nimmt sich das shift und die 6 kommt wieder zurück.

Was du willst: Testen, ob das self->isa Term_choose. Wenn ja: Aufruf als Methode, wenn nein: Aufruf als funktion