A simple map should do it

use Data::Dumper;

my @one  = 'A' .. 'D';
my @two  = 'E' .. 'H';

my @both = map [ $one[$_], $two[$_] ], 0 .. $#one;

print Dumper \@both;

__output__

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