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