Help for this page
print join "\n", unzip('AaBbCcDdEeFGHIJ', 5);
{ local $" = "\n"; print "@{[unzip('AaBbCcDdEeFGHIJ', 5)]}"; }