use Data::Dumper;
 
@one = qw(A B C D);
@two = qw(E F G H);
 
@mda=( [@one],[@two]);
 
print Dumper(\@mda);


##</code><code>##

$VAR1 = [
          [
            'A',
            'B',
            'C',
            'D'
          ],
          [
            'E',
            'F',
            'G',
            'H'
          ]
        ];