note
moritz
Try something like
<code>
my @indexes = grep { $a[$_] eq $search_for } 0..$#a;
$participants{$og} = \@indexes;
</code>
<p>This puts an array reference of all found indexes into the hash. See [doc://perlreftut] for more information about references, and why you need them here.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-616540">
[http://perl6.org/|Perl 6 - second systems done right]
</div></div>
918505
918505