Select Code to Download

    while($db->FetchRow()){                
        my %hash = $db->DataHash(@$fields_ref);
        push (@data, \%hash);
    }

    while($db->FetchRow()){                
        push (@data, $db->DataHash(@$fields_ref));
    }

    while ($data[$x]){
        my ($i,@orderdata,%myhash);
...
$data[$x]{'anaglyph'}="checked";}
        $x++;
    }