if (scalar ( keys %arquivos) ne 0) {
    foreach (keys %arquivos) {
        if ($_ ne "." && $_ ne "..") {
            print qq{<a href="$file_folder$_\">$_</a>\n};
        }
    }
} else { print "These aren't the files you're looking for. Move along.\n"; }