push @{ $r{ ... } }, [ ... ];
...
for (@{ $r{ ... } })  { ... $_->[...] }