my @array = @_;
What do you mean, exactly, when you say that mysub1
returns an array? If it returns an anonymous array,
then the assignment above should read something like
my @array = @{shift@_};
As it stands
now, not only does the code not do what you want in
the error case, it won't do what you want in the
case where an array is returned either.
;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$;[-1]->();print