The clearest way to do it would be in insert a join into your expression:

print join "\n", grep {(stat)3 > 1} @things;

If you wanted to be clever, you can set the value of the output field separater using the special variable $,:

local $, = "\n";
print grep {(stat)3 > 1} @things;
[download]

Beware creating cleverness and long compound statements, as they can make maintenance more difficult than it needs to be.