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