my ($key, %col_cbud, %col_encu, %col_fytd, %col_proj, %ctrl_tbl, @loop_data);