sub _{{J,{A,{P,{$.,'Just another Perl h'}}}}}+print+_->{J}{A}{P}->{$.}.acker