foreach my $field ( @params ) {                    
    $input{$field} = param( $field );    
}