c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my @h = qw(uno dos tres);
 my @d = qw(one two three);
 ;;
 my %t;
 @t{@h} = @d;
 ;;
 dd \%t;
"
{ dos => "two", tres => "three", uno => "one" }