#!/usr/local/bin/perl -w
 
use strict;
use Data::Dumper;
 
{
   my @a = qw(one two three four);
   my @b = qw(1 2 3 4);
 
   my %hash = ();
 
   @hash {@a} = @b;
 
   print Dumper ([\%hash]);
}