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++;
}