for(keys(%form)){ delete $form{$_} unless defined $form{$_} }