Select Code to Download

my @foo = ('A' .. 'G');
my @bar = (1 .. 7);
...
for my $i (0..$#foo) {
   push @baz, $foo[$i] . $bar[$i];
}