Select Code to Download

use Data::Dumper;
use Tie::IxHash;
...
  $data{SomeMoreStuff}{SomeMoreData} = 'x';

  print Dumper \%data;

%data = (
SomeStuff => {
...
  OtherData => 'd'
}
);

$VAR1 = {
          'SomeStuff' => {
...
                               'SomeData' => 'a'
                             }
        };

$VAR1 = {
          'SomeStuff' => {
...
                               'OtherData' => 'd',
                             }
        };