use List::Util qw(min max); $min = min @list; $max = max @list; [download]
In reply to Re^2: Finding the max()/min() by itub in thread Finding the max()/min() by dragonchild