sub DESTROY { print $_[0][0] } $p = bless [$_, $p] for reverse split //, 'Just another Perl hacker,';