#my humble code snippet is:

# for 4th column check number of decimals
   my @dec = split("\\.", $cols[3]);
   my $dec_length = length($dec[1]);
   if ($dec_length != 2) {
       print "BAD decimal length - $x1\n";
   }