#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %hash;
my @keys = qw ( one two three );
my @values = qw ( 1 2 3 );

#  I thought it would need a $!
$hash{@keys} = @values;

print Dumper \%hash;