Select Code to Download

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

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