sub chain{(*f,*_)=@_;@_=&$_ for@f;@_} #### sub chain{my($f,$a)=@_;$a=[&$_(@$a)]for@$f;@$a}