my $x=0;
    my $numpix = @data;
    while ($data[$x]){
        my ($i,@orderdata,%myhash);
        foreach $i (1 .. $x){
            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;
        if ($data[$x]{'anaglyph'} eq "Yes"){$data[$x]{'anaglyph'}="checked";}
        $x++;
    }