Select Code to Download

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

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

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

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

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