I don't know much about OOP, but aren't you missing the return statement in your sub new()?

Update: chromatic explained to me that the constructor returns the value of the last expression. (the bless. Like I said, I don't know much, OOPS! :)

@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}