#!usr/bin/perl

use Data::Dumper;

my @array1 = 'A' .. 'E';
my @array2 = 1 .. 5;
my @array3 = 'a' .. 'e';


my %hash;

@hash{@array1} = @array2;

print Dumper \%hash;
~