my $max = (sort { $b <=> $a } @array)[0];