map { push ... } is a rather silly construct. Better solutions:

my $counter = 0;
my @combined;
push @combined, "$_:$array2[$counter++]" for @array1;
[download]

my $counter = 0;
my @combined = map { "$_:$array2[$counter++]" } @array1;
[download]

Having two independent but equivalent iterators is overly complex. Better:

my @combined = map { "$array1[$_]:$array2[$_]" } 0..$#array1;
[download]