@keys = qw( a b c );
@values = qw ( 1 2 3 );
my %hash;
$hash{$_} = shift @values for @keys;