perl -MBenchmark=cmpthese -wle 'cmpthese(1, { context => q{print wantarray ? "list" : defined(wantarray) ? "scalar" : "void"}})'

##</code><code>##

  for my $element (@array) {
    length($element) or next;
    ...
  }