:
: 
my $max=0;
map { $max=($max < $_ ?  $_ : $max )} @array_of_nums; 
:
: or a hash...
my $kmax=0;
map { $kmax =($kmax < $_ ? $_ : $kmax) } keys %hash_nums;