my ($f_mfg_desk, $f_mfg_desk_output, $record,@wip_query, $wip_query, $opr_cd, @header,
    $header, %header, $x, $row, $row_array, @row_array, @rule_array, $BREAK,
    $year, $month, $day, $hour, $min, $sec, $run_time, $dtme,
    $local_outfile_timestamp, $remote_outfile_timestamp, $local_outfile_latest,
    $remote_outfile_web, $Oper_Cd, $Pick_Ref_Num, $Part_Id, @header_data,
    $newrow, @newrow, $head);