use strict;
use Data::Dumper;
my %data;

{
  my %temp;

  while (<DATA>) {
    chomp; /^(.*?):(.*?)$/;
    my $key = $2; my $value = $1;

    if (!defined $temp{$key}) { 
      $temp{$key} = {}; 
      $data{$key} = \%{$temp{$key}}; 
    };

    $temp{$key}{$value} = \%{$temp{$value}};

  };

}

print Dumper \%data;

__DATA__
b:a
c:a
d:b
e:c
f:c

##</code><code>##

$VAR1 = {
          'a' => {
                   'c' => {
                            'e' => {},
                            'f' => {}
                          },
                   'b' => {
                            'd' => {}
                          }
                 }
        };

##</code><code>##

use strict;
use Data::Dumper;

my %saved = (
  'test1' => {
     'test2' => 'b'
   },
   'b' => [1,2,3,4],
   'test3' => 'x'
);

print "Constructed hash\n";
print Dumper \%saved;

open FILE, ">save.out";
print FILE Dumper \%saved;
close FILE;

my %loaded = %{do 'save.out'};

print "Loaded hash\n";
print Dumper \%loaded;