find ( sub { print  $File::Find::name ,  "\n" if /\.lef$/  } , @filtered);
print join("\n" , @files, "\n");