my %hash;
my %direc;

my $record = { DIR  => 3 };
$hash{'myhash'} = $record;

$direc{'this'} = "something";
$direc{'that'} = "another";

#Here we swat the previous value of $hash{'myhash'}
#the previous value of $hash{myhash} ($record) vanishes 
$hash{'myhash'}{ODIR} = \%direc;
print  $hash{'myhash'}->{ODIR}{'this'},"\n";
print $hash{'myhash'}{ODIR}{'this'},"\n";
print $hash{'myhash'},"\n";