#! 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  %hash   = pairwise { $a => $b } @array1, @array2;
dd \%hash;

##</code><code>##

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

21:57 >