foreach $field(@fieldList){
     $$field = $in{'$field'};
}