while ($data[$x]){
        my ($i,@orderdata,%myhash);
        foreach $i (1 .. $numpix){
            if ($i == $data[$x]{'picorder'}){
$myhash{'orderline'} = "<option value=\"$i\" selected>$i</option>";
                }else{
$myhash{'orderline'} = "<option value=\"$i\" selected>$i</option>";}
            push (@orderdata, \%myhash);    
        }
        $data[$x]{'orderdata'} = \@orderdata;
        #transform anaglyph data for checkboxes
        if ($data[$x]{'anaglyph'} eq "Yes"){
$data[$x]{'anaglyph'}="checked";}
        $x++;
    }