Select Code to Download

use strict;
use warnings;
...
  @AoA;

pp @max_names;

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