102         while(<DBNAME>) {
103                 next if /^#/;
104                 1 while (chomp);
105                 s/ +/\t/g;
106                 s/\t+/\t/g;
107                 my @tmp=split('\t',$_);
108                 my $item=shift @tmp;
109                 $down_name{$item}=\@tmp;
110         }