Note. The code that worked came close to not working either. Each iteration tried to save the same reference!
push @OrderedQuestions, \@an ;
It only worked because @an was declared lexical and not global:

This almost identical code will not work
with the keyword my is missing:

while ( @an = $sth->fetchrow_array) {
     push (@OrderedQuestions, \@an);
}
[download]