#! perl
use strict;
use warnings;

my @array1 = qw(red blue green);
my @array2 = qw(black orange white);
my @params;

push @params, shift(@array1) . ':' . shift(@array2) while @array1;

print join(',', @params), "\n";

##</code><code>##

22:16 >perl 977_SoPW.pl
red:black,blue:orange,green:white

22:20 >

##</code><code>##

#! perl
use strict;
use warnings;
use List::MoreUtils 'pairwise';
use Data::Dump;

my  @array1 = qw(red blue green);
my  @array2 = qw(black orange white);
my  @params = pairwise { $a . ':' . $b } @array1, @array2;
dd \@array1;
dd \@array2;
print join(',', @params), "\n";

##</code><code>##

23:51 >perl 977_SoPW.pl
["red", "blue", "green"]
["black", "orange", "white"]
red:black,blue:orange,green:white

23:51 >