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