sub foo {last if (/^d/i); push @nod, $_}
find (\&foo, "/somedir");