Perl Style: Loop Hoisting

Hoist repeated code out of blocks:Before:

    if (...) {
        X;  Y;
    } else {
        X;  Z;
    }

After:

    X;
    if (...) {
        Y;
    } else {
        Z;
    }