use strict; use warnings; use Data::Dumper; my %aa; $aa{primary_key}{key1} = 100; $aa{primary_key}{key2} = 200; my %bb; $bb{primary_key} = { key1 => 100, key2 => 200, }; print Dumper \%aa; print Dumper \%bb; __END__ $VAR1 = { 'primary_key'…

「入院１万円保障」にだまされるな ：保険会社が言わないホントの保険の話 ：年金・保険 ：マネー ：日本経済新聞