use File::Find; find ( sub { print $File::Find::name , "\n" if /\.lef$/ } , @filtered); #### aaa/bbb/ccc/cell_a.lef aaa/bbb/ddd/cell_b.lef aaa/ccc/eee/cell_a.lef