Not much difference in terms of memory provided you remember to delete entries from the hashes when the objects get destroyed. (Using one of the fieldhash modules from CPAN would help immensely.)
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'