for (sort values %playlist) { print TEST  "$_\n" }
for (sort values %filelist) { print TEST2 "$_\n" }