my %hash;
@hash{@Arrayone} = @Arraytwo;

##</code><code>##

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