#!/usr/bin/perl -w

use strict;

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

my %result = build_hash();

use Data::Dumper;
print STDERR Dumper(\%result);

sub build_hash {
    my %return;

    @return{@keys} = @values;
}