Select Code to Download

my %hoh;
$hoh{element1} = {start => 1,
                  middle => 5};

my %temphash = %{$hoh{element1}};
$temphash{end} = 10;
$hoh{element1} = \%temphash;