if ($data[$x]->{'anaglyph'} eq "Yes"){
    $data[$x]->{'anaglyph'}="checked";
}