Select Code to Download

 
print scalar %direc;

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

foreach (sort keys %{$hash->{myhash}{ODIR}}){
    print "$_ => $hash->{myhash}{ODIR}{$_}\n";
}