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