use List::Util qw(max); max(...)