my (%hash, @a, @b);
$hash{shift @a} = shift @b while (@a and @b);