my %fam_old = map{$_, 1} @terms;