my @goods = ();
use File::Find;
find sub {
  push @goods, $File::Find::name if i_like_this($File::Find::name);
}, @dirs;
...