opendir(DIR, "$path/$new_folder/$new_folder1/$third_layer") || die("Unable to opend $third_layer : $!\n\n");

my @third_layer = readdir(DIR);

closedir(DIR);

print("Third layer is : @third_layer\n\n");

shift(@third_layer);

shift(@third_layer);

print("@third_layer\n\n");

@third_layer = map{ $_ = "$path/$new_folder/$new_folder1/$third_layer/$_"}@third_layer;

if(unlink(@third_layer))
{
    print("Successfully deleted the following data : @third_layer\n\n");
}else
{
    print("Unable to delete the following data : @third_layer\n\n");
}