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

##</code><code>##

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

##</code><code>##

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