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