#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $box = [
            { id => 'q01' },
            { id => 'q02' },
            { id => 'q03' },
	      ];

my @results = qw ( foo bar buz );

my $i = 0;
for (@$box) {
  $_->{value} = $results[$i++];
}

print Dumper($box);