Select Code to Download

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

$smallest = min ($smallest, $number);

my ( $largest, $smallest ) = ('-inf', '+inf');