http://qs321.pair.com?node_id=400530


in reply to Re: if variants
in thread if variants

Or more generally, with a do statement:
do {local($,) = (','); print(@array);} if $tok eq 'a';