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