for my $row (@old) {
      for my $r (@b) {