$ perl -le'
my @array = ( 99, 67, 0, -100, -38, 98 );

my ( $min, $max ) = @array;

for my $element ( @array ) {
    $min = $element if $min > $element;
    $max = $element if $max < $element;
    }

print "Min = $min and Max = $max";
'
Min = -100 and Max = 99