Re^2: if variants

[Anonymous Monk]

Or more generally, with a do statement:

do {local($,) = (',');
    print(@array);} if $tok eq 'a';