http://www.perlmonks.org?node_id=355448


in reply to Merging an array into an AoH

Your index and increment ought not to be separate from your loop. That's gross.

for my $ix ( 0 .. $#$box ) { $box->[ $ix ]{ 'value' } = $results[ $ix ]; }