my @Arrayone = ('A','B','C','D');
my @Arraytwo = ('1','2','3','4');
my (%Arraythree, $ct);

for ($ct=0; $ct <= $#Arrayone; $ct++) {
    $Arraythree{$Arrayone[$ct]} = $Arraytwo[$ct];
}