Define your own method resolution order in Perl