my %hash = map { $Arrayone[$_] => $Arraytwo[$_] } 0..$#Arrayone;