foreach $folder (@iqfolder_arr) { print("Printing from inside the last foreach but before rmdir: $folder\n"); rmtree(['/ep005/egate/client/iq/$folder'], 1, 1) || die "Error: @{[ $ftp_disco->message ]}\n"; }