Re: Re: Re: Re: duplicate lines in array

[Fletch]

Bah, you call that golfing? :) You used multi-letter variable names and more than one space.

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

[Skeeve]

How comes you missed this?

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

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

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