if ($#mach_A < 41) {
    # Less columns than expected. 
    warn "Line has less columns than expected.";
}