#~ perl -MDDS -Mstrict -Mwarnings -le " my $hr; map { @{$hr->{$_}}{qw' a b c '} = $_,$_,$_ ; } 1; Dump($hr) "
#~ perl -MDDS -Mstrict -Mwarnings -le " my $hr; map { @{$hr->{$_}}{qw' a b c '} = ( $_,$_,$_ ); } 1; Dump($hr) "
#~ perl -MDDS -Mstrict -Mwarnings -le " my $hr; $_ = 1; @{$hr->{$_}}{qw' a b c '} = $_,$_,$_ ; Dump($hr) "
#~ perl -MDDS -Mstrict -Mwarnings -le " my $hr; $_ = 1; @{$hr->{$_}}{qw' a b c '} = ( $_,$_,$_ ); Dump($hr) "


$ perl -MDDS -Mstrict -Mwarnings -le " my $hr; map { @{$hr->{$_}}{qw' a b c '} = $_,$_,$_ ; } 1; Dump($hr) "
$HASH1 = { 1 => {
           a => 1,
           b => undef,
           c => undef
         } };

$ perl -MDDS -Mstrict -Mwarnings -le " my $hr; map { @{$hr->{$_}}{qw' a b c '} = ( $_,$_,$_ ); } 1; Dump($hr) "
$HASH1 = { 1 => {
           a => 1,
           b => 1,
           c => 1
         } };

$ perl -MDDS -Mstrict -Mwarnings -le " my $hr; $_ = 1; @{$hr->{$_}}{qw' a b c '} = $_,$_,$_ ; Dump($hr) "
Useless use of a variable in void context at -e line 1.
Useless use of a variable in void context at -e line 1.
$HASH1 = { 1 => {
           a => 1,
           b => undef,
           c => undef
         } };

$ perl -MDDS -Mstrict -Mwarnings -le " my $hr; $_ = 1; @{$hr->{$_}}{qw' a b c '} = ( $_,$_,$_ ); Dump($hr) "
$HASH1 = { 1 => {
           a => 1,
           b => 1,
           c => 1
         } };

$
$