my @questions;

for (qw(first second)) {
     my %pending;
     $pending{answer} = $_;
     push @questions, \%pending;
}

Dump \@questions;