bash script to remove all but newest subdirectory for 10,000 movies

cd /root/me
for x in /opt/movies/*;do echo "$x" >> titles;done
cat titles|grep -v somcrapidontwant >> titles3
mv titles3 titles

cat titles|while read x;do cd "$x"/wmv;y=$(ls -t|grep -v $(ls -t|head -1));for z in $y;do find "$x"/wmv -type d -iname "$z" >> /root/me/oldburns;done;done