my @k = keys %$form;
my @v = values %$form;
@form_hash{@k} = @v;