@vars = qw(name rank serial_num shoe_size);
foreach (@vars) {
   $form_input{$_} = param ($_};
}