Select Code to Download

#! perl
use strict;
...
my  @array2 = qw(black orange white);
my  %hash   = pairwise { $a => $b } @array1, @array2;
dd \%hash;

21:57 >perl 977_SoPW.pl
{ blue => "orange", green => "white", red => "black" }

21:57 >