use List::Util qw(min max);
print max(4,8,2,33,1);      # prints 33