sub trim {
   return map { s/\.mp3\z/\n/; $_ } sort @_;
}