@hash{@a} = @b;

##</code><code>##

    for (my $i = 0; $i <= $#a; ++$i) {
      $hash{$a[$i]} = $b[$i];
    }