in reply to The accidental fractal
You can shorten this:
To this:for $r (@a) { $b[$r][$_] = $" for @a }
You can also shorten this:@b = ([($")x@a])x@a;
using the for statment modifier:print map{ @{$e[$_]}, $/ } @a;
print @{$e[$_]}, $/ for @a;
In Section
Obfuscated Code