if (@{$result_array} eq “”) {
    <some message>
  } else {
    <do the output>
  }