$;=sub{$\};my@x=map{my($x,$y)=($;,$_);$;=
sub{$x->().$y}}@arr;;my$str=($x[-1]->());