$hoa = (
            obj1 = [ 1,2,3,5 ]
            obj2 = [ a,z,b,c,e]
             ..
            objx = [A1,Z2,Z5]
            }


##</code><code>##


@order = zip (  obj1, obj2, .. objx )