my @foo = ('A' .. 'G');
my @bar = (1 .. 7);
my @baz;

warn "arrays are not the same size!\n" unless @foo == @bar;

for my $i (0..$#foo) {
   push @baz, $foo[$i] . $bar[$i];
}