#!/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]);
}

##</code><code>##

$VAR1 = [
          {
            'three' => 3,
            'two' => 2,
            'one' => 1,
            'four' => 4
          }
        ];