foreach $folder (@iqfolder_arr)
{ 
 $ftp_disco->rmdir($folder) || die "FTP Message> @{[ $ftp_disco->message ]}\n";
}