How comes you missed this?

/H\(\d+\)/&&push@{$c{$&}},$_.$/for@r;
[download]

You could even save "keys" because no value will be a key:

print map@{$c{$_}},grep$#{$c{$_}}>0,%c;
[download]