Or more generally, with a do statement:

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