Select Code to Download

my ($largest, $smallest) = (-9e9,9e9);                          #   in
+itialize to the wrong extremes
    ...
...
            $largest = $v   if $v > $largest;
            $smallest = $v  if $v < $smallest;
        }

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (-9e9-123, -9e9-234);
...
 print qq{smallest: $smallest;  largest: $largest};
"
smallest: -9000000234;  largest: -9000000000

c:\@Work\Perl\monks>perl -wMstrict -le
"my @array = (-9e9-123, -9e9-234);
...
 print qq{smallest: $smallest;  largest: $largest};
"
smallest: -9000000234;  largest: -9000000123