Perl 6 changes:

• zip is built in!.
• There is an infix operator for zipping too: ¥.
• The ASCII equivalent, if you can't or won't type ¥, is: Y.
• zip doesn't take references, but multiple lists. These are separated by semicolons (within parens!), or are specified with multiple <== pipes.
• Lists can be initialized with a list of pairs, but fashioned key/value lists still work.

Examples:

my %hash = zip(@keys; @values);

my %hash = zip(<== @keys <== @values);

my %hash = @keys ¥ @values;

my %hash = @keys Y @values;
[download]