my @x;
for (qw(Name Location Age)){
  print qq(What is your $_ ?\n);
  push @x, scalar <STDIN>;
   #This will include a trailing '\n' in each element..
};

print qq(ANSWERS:\n@x\n);