my %shared_data = (
            'dtLastRcvMsg' =>  time,
     'dummy2'       =>  33,
     'dummy'        =>  5
      );

    my $p1 = \%shared_data;
    mylog( "P1: ($p1) " . Dumper( $p1 ));


##</code><code>##


    $self->{'shared_data'} = $p1;

    my $p2 = $self->{'shared_data'};
    mylog( "P2: ($p2)" . Dumper( $p2 ));