kevsurf,
I misunderstood you in the CB:

#!/usr/bin/perl -w
use strict;
my @one = qw(A B C D);
my @two = qw(E F G H);
my @mda;
my $total = @one > @two ? $#one : $#two;

push @mda , [ $one[$_] , $two[$_] ] for 0 .. $total;
[download]

Cheers - L~R