Help for this page
sub trim { return map { s/\.mp3\z/\n/; $_ } sort @_; }
sub trim { return map { s/\.mp3\z//; $_ } sort @_; ... # and decorate it in the 'client' print DB map {"$_\n"} trim(@files);