Perl "inside-out" objects on the cheap using tied hashes