# print headline-keys # loop over indices # print $index,"\t"; # loop over ids in headline # print $data[$index]{$id},"\t"; # print newline