sub Modify_param_array{
   print qq{In Modify_param_array - change @_\n};
   @_ = qw[New contents. The caller never sees this];
}