use Data::Dumper;
use Tie::IxHash;
tie %data, 'Tie::IxHash';

  do "File";

  $data{SomeMoreStuff}{SomeMoreData} = 'x';

  print Dumper \%data;