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 ];
}
[download]