my @data = (
  {
    query => 'First Name',
  },
  {
    query => 'Last Name',
  },
  # etc.
);

while (1) {
  system("cls");
  print "You have entered these values for each of these fields.\n",
        "If you wish to fix any of the information now, select the number to change\n";

  for (my $i = 0; $i < scalar @data; ++$i)
  {
    print "\t", $i + 1, ". ", $data[$i]{query}, ": ", $data[$i]{value}||"", "\n";
  }
  print "\t0. Done\n";

  print "Type a number to choose to change: ";
  my $number = <STDIN>;
  chomp($number);
  if ($number == 0)
  {
    last;
  }
  --$number;
  print "\n\nPlease enter your ", $data[$number]{query}, ": ";
  $data[$number]{value} = <STDIN>;
  chomp($data[$number]{value});
}