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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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