Change your lexical $c to a package global (eg. change 'my' to a 'use vars'), and it will work. The share method, as the documentation states, works on variables in the calling package.

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print