# "if..." if ( # the number of details records $details_record_count # does not tally with (is not equal to) != # the count given in the total count field at the end of the file # (we'll assume you've read the file and have it already) $total_count) # then { # 1.1 Reject the file push @rejected_files, @filename; # 1.2 Record error details in the error log print $error_log "$file total count field does not agree ($details_record_count actual, $total_count in file)\n"; } #### # if the number of actual detail records doesn't match the count in the file, mark this file as rejected and print a message to the error log. if ( $details_record_count != $total_count) { push @rejected_files, @filename; print $error_log "$file total count field does not agree ($details_record_count actual, $total_count in file)\n"; }