my @questions;
my %pending;

while($sth->fetch) {
	while($sth->fetch) {
		if($pending{is_correct}) {
			$pending{correct_answer} = $pending{answer};
		} else {
			## Add to array of wrong answers
			push @{$pending{wrong}}, $pending{answer};
		}
	}
	push @questions, %pending;
}

return @questions;