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