/(H\(\d+\))/&&push@{$c{$1}},"$_\n"for@r;
print map@{$c{$_}},grep$#{$c{$_}},keys%c;