... and Larry Wall.

Deutsch: [...] that is Lisp is lexically pretty monotonous.

Seibel: I think Larry Wall described it as a bowl of oatmeal with fingernail clippings in it.

Deutsch: Well, my description of Perl is something that looks like it came out of the wrong end of a dog. I think Larry Wall has a lot of nerve talking about language design - Perl is an abomination as a language.

I wonder what the right end of a dog is?

L. Peter Deutsch (of Ghostscript fame) in Coders at Work

I see code…

my @showart;
my @articles;
map {push(@showart, $_) if($_->{'article_description_cat'} eq $category);} @{$alteration};
@articles = sort {$a->{'article_description_rank'} <=> $b->{'article_description_rank'}} @showart;

So what do we have there?

• A superfluous temporary variable: @showart.
• A use of map that explicitly throws away map’s return value and goes for the side-effects only.
• Lines that are way too long.
• Don’t get me started about the semicolon in the map expression.
• Don’t make me think about the whitespace that is missing in all sorts of places.
• An instance of intentional obfuscation?