my %hash;
my %direc;

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

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

$hash{'myhash'}->{ODIR} = %direc;