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