perl -e 'my (my (my (my (my (my $puerto_rico)))))'
Surely this should be
perl -e 'my (my (my $sharona))'
In the same vein:
perl -e '@street= ( 101, 102, our $house, 104, 105 )'
Gene: that works too.
The perversity is that you can nest declarations inside each other in Perl – which you didn’t. :-)
What you used are just the advertised (and very reasonable!) features that together lead to the perversity as a corner case.
You can also use it to illustrate the struggle of economic ideologies:
our (my (our (my (our (my (our (my $possession)))))));
(De-obfu: capitalism won in this example.)
Oh. Gotcha. I parsed 'perversion' as 'using Perl to do terrible song-based puns'. Hence my reply.
For which I'm already punished, mind you, as I have the darn song driving me crazy as a Ohrwurm now.
My work here is done.
sorry Yanik's Madness one should be:
perl -e 'our @street= ( 101, 102, our $house, 104, 105 )'