my $valid = 0;
for (my $i=0; $i<=$#{$question->{'data'}};$i++){
	if ( $answer eq ${$question->{'data'}}[$i][0] ) {
		$valid = 1;
		last;
	}
}