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

  do "File";

  print Dumper \%data;

##</code><code>##

$VAR1 = {
          'SomeStuff' => {},
          'SomeMoreStuff' => {}
        };