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