I think many languages that support OO have just one way to do it, but with Perl there is an amazing array of choices.

Well there are other languages that have a flexible approach to OO. Lisp and Ruby both spring to mind.

The other thing is that with Perl's OO a lot of the TIMTOWTDI comes from there not being one 'good' way of doing it. This hurts rather than helps Perl's OO system because the various different ways of doing it don't always play well together.