[tpm] dereferencing anonymous hashes

[Fulko Hew]

I always seem to have a problem dereferencing anonymous hashes...
(a mental block, or I'm just mental!)

In a subroutine I create the thing as such:

sub foo {
  my $device = {};                           # create an anonymous hash
  $config{$cfg}{device} = \$device;    # And stick it into the major
data structure

$device{$devId}{status) = 'ok';         # and populate the anonymous hash
$device{$devId}{msgCnt}++;
}

Then later on I want to extract the status:

my %device = ${$config{$cfg}{device}};
$status = $device{$devId}{status};

but this isn't quite right.  ;-(