@fields = ('required-name','age'); # etc etc etc
foreach $sortedkeys (@sortedkeys)    {
  $sortedkeys =~ s/^\d*\)\s*//;
  $sortedkeys =~ s/required-//;
  ($name, $answer) = split (/\|/, $sortedkeys);
  $form{$name} = $answer;
}
#so now all your data is in a hash, keyed off the name.
foreach $field (@fields) {
  #check if form value exists, if yes, put form value in
  #$answer, otherwise put a comma?
  $answer = (exists $form{$field} ? $form{$field} : ',');
  print FORM "$field -- $answer\n";
}