Select Code to Download

#! perl
use strict;
...
push @params, shift(@array1) . ':' . shift(@array2) while @array1;

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

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

22:20 >

#! perl
use strict;
...
dd \@array1;
dd \@array2;
print join(',', @params), "\n";

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

23:51 >