use Data::Dumper;

@keys = qw(A B C);
@values = qw(1 2 3);

##</code><code>##

@hash{@keys} = @values;
print Dumper(\%hash);

##</code><code>##

%hash=();

$hash{x}{A} = 1;
$hash{x}{B} = 2;
$hash{x}{C} = 3;
print Dumper(\%hash);

##</code><code>##

%hash=();
$hash{x}{@keys} = @values;
print Dumper(\%hash);

##</code><code>##

@hash{x}{@keys} = @values;

##</code><code>##

@{$hash{x}{@keys}} = @values;