#!/usr/bin/perl -w

use strict;

my @keys   = qw(a b c d);
my @values = qw(1 2 3 4);

print interleave(\@keys, \@values);

sub interleave {
  my %interleaved;
  @interleaved{ @{$_[0]} } = @{$_[1]};
  return %interleaved;
}