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