use List::Util qw(max min sum);