Select Code to Download

for $r (@a) {
  $b[$r][$_] = $" for @a }

@b = ([($")x@a])x@a;

print map{ @{$e[$_]}, $/ } @a;

print @{$e[$_]}, $/ for @a;