sub with {for (@{$_[1]}){$_[0] = $_;$_[2]();}}
sub in { \@_  } 
sub run(&) { $_[0] }