{FS=","}r=/Com/{for(;$++i!~/e T/;);for(;$++j!~/H/;);}r,0{if($i)print$i","$j}