@IN = params();
foreach $field (@IN){
DATA{$field} = param($field);
}