#!/usr/bin/perl -w

use strict;
use Data::Dumper;

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

#  What's with the @ symbol and not a $?
@hash{@keys} = @values;

print Dumper \%hash;