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