Select Code to Download

>perl -wMstrict -le
"for (qw(zik zok)) {
...
for before: 'zok'
gone from foo,  passed = 'wilma',  $_ = 'fred'
for after: 'zok'

sub foo {
  for (qw(fred pebbles)) {
    sub { for (qw(hoo ha)) { goto &bar; } }->(@_);
    }
  }