%provinces = ( ); $i = 1; %provincecontent1 = ( name => 0, troops => 888, ); $provinces{test1} = \%provincecontent1; %provincecontent1 = ( name => 1, troops => 999, ); $provinces{test2} = \%provincecontent1; my $value = $provinces{test1}{name}; print $value; my $value = $provinces{test1}{troops}; print $value; my $value = $provinces{test2}{name}; print $value; my $value = $provinces{test2}{troops}; print $value;