Select Code to Download

use warnings;
use strict;
...
 $hoh{element1}{end}=10;  # add to hash

print Dumper \%hoh;

$VAR1 = {
          'element1' => {
                          'middle' => 5,
...
                          'start' => 1
                        }
        };