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;

##</code><code>##

%hash = (
	$question_id => { correct_answer => $whatever,
					  wrong_answers  => [ $oops, $my_bad, ... ] },