The usual solution is to use NEXT. (Or to not use multiple inheritance.)

Incidentally if you're doing interesting things with OO in Perl, you may wish to look at Moose.