@hash{ qw( foo bar baz ) } = ( 1, 2, 3 );

##</code><code>##

$hash{ foo } = 1;
$hash{ bar } = 2;
$hash{ baz } = 3;

##</code><code>##

@keys = qw( foo bar baz );
@copy{ @keys } = @orig{ @keys };

##</code><code>##

@h{ @flds } = @{ $d }{ @flds };  # hash slice assignment

##</code><code>##