For variation from the hash slices posts:

my @a = ('one', 'two', 'three');
my @b = (1, 2, 3);
my %result = map { $a[$_] => $b[$_] } 0..$#a;
[download]

I bet it's slower than a hash slice, though.