Select Code to Download

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

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