my @max_names =
  map { $_->[num] == $max_num ? $_->[name] : () }
  @AoA;