my @arquivos = grep /\.mp3$/i, readdir DIR;