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