use strict;
use warnings;
use Data::Dump::Streamer;

my @questions;
my %pending;

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

Dump \@questions;