my @numbers = map $_->[1], @AoA;
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

better?

use strict;
use warnings;
use Data::Dump qw/pp dd/;
use List::Util qw(min max);
use constant { name=>0, num=>1 };

my @AoA = 
(
    ["nick","99"],
    ["john","88"],
    ["peter","77"],
    ["thomas","99"]
);

my $max_num   = max map { $_->[num] } @AoA;
my @max_names =
  map  { $_->[name] }
  grep { $_->[num] == $max_num }
  @AoA;

pp @max_names;
[download]

and for completeness another variant

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

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}

A question on this if I may:
is it possible to do something similar to foreach for arrays, in array of arrays?. I mean, in the following code:


    my $min_diff_past = max (@all_date_diffs_past);
    
    for my $j ( 0 .. $#AoA_past ) 
    {
        if ($AoA_past[$j][1]==$min_diff_past)
        {
            print $AoA_past[$j][0]."\t";
        }
    }
[download]


is there a way to not write the for loop but substitute it with a foreach loop or not?