Qname1 Qname2 Subname1 percent ID1 percent ID2 #### push(@{$idmatrix{$qname}},$qname[$q]); push(@{$idmatrix{$id[$q][$s]}},$id); push(@{$idmatrix{$sname}},$sname[$s]);