Select Code to Download

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

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

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

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