foreach my$t(@array){
   ## if it is eq to one each header print the lines under that header plus the header itself##