(print(ref $result)) ? (join ":", @$result) : "no results";

##</code><code>##

  print +(ref $result) ? (join ":", @$result) : "no results";

##</code><code>##

  print ref($result) ? (join ":", @$result) : "no results";

##</code><code>##

  print ref $result ? (join ":", @$result) : "no results";