Select Code to Download

sub ctx {
  my $w = wantarray;
...
@{$a}[ctxind("slice ndx")];
$a -> [ctxind("plain ndx")] -> 
    ("fn1",ctx("args1"),ctx("args2")) -> ("fn2",ctx("args3"));

buildA1:array
buildA2:array
...
plain ndx:scalar
fn1:scalar
fn2:void

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/