use Smart::Comments; foreach (@array) { ### Evaluating... done # do something... }