@mda = map {
   [[$one[$_-1]], [$two[$_-1]]]
} 1..@one;


##</code><code>##

@mda = map {
   [$one[$_-1], $two[$_-1]]
} 1..@one;


##</code><code>##

@mda = (
         [A][E],
         [B][F],
         [C][G],
         [D][H]
);

##</code><code>##

@mda = (
         [A,E],
         [B,F],
         [C,G],
         [D,H],
);


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/