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