my $box = {
                   q01 => {},
                   ...
                   q03 => {}
                  };

#this should keep them in the right order
my @sorted_keys = sort {lc $a cmp lc $b} keys %{$box} ;

for my $id (@sorted_keys) 
{
    $box->{$id}{value} = shift @results; 
}