if ( $Type{$DBCol} =~ /^numeric|float|int|money/o ) {...}