my %missing;
for my $item (qw{fname sname age street city zip etc}){
   $missing{$item} = param($item) ? 0 : 1;
}