use strict;
use warnings;

my @array1 = ('A','B','C','D');
my @array2 = ('1','2','3','4');
my %hash1;

foreach my $key (@array1){
    $hash1{$key} = shift(@array2);
}


for my $keys ( sort(keys %hash1 )) {
    my $value = $hash1{$keys};
    print "$keys => $value\n";
}