#! 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";