@dis_dic = $f1_line; #### push @dis_dic, $f1_line;