use strict;

use List::MoreUtils qw(zip);

my @keys = (1..3); my @values = (4..6);

my %hash = zip @keys, @values;