Select Code to Download

...
use DBI;
...
EOSQL
print "Minimum value found: $$ar[0][0]\n"
.     "Maximum value found: $$ar[0][1]\n";

my ($min, $max);
for my $rec (@records) {
...
    $max = $$rec[$colNum] if !defined($max) or $$rec[$colNum]>$max;
}
print "Values used are between $min and $max\n";