my $serialized = pack 'L/a', freeze \%somehash;
$shm_somehash->write( $serialized, 0, 1024);

...

my $unpacked = unpack "L/a", $shm_somehash->read( 0, 1024);
my %hash = %{ thaw $unpacked };