foreach (reverse @array) {
    (-d && rmdir) || (-f && unlink)
}