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

  do "File";

  print Dumper \%data;