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

    my ( $p1, $p2 );
    # 1° test : OK
    $p1 = \%shared_data;
    $self->mylog( "P1: ($p1) " . Dumper( $p1 ));

    # 2° test : OK
    $p2 = $p1;
    $self->mylog( "P2: ($p2)" . Dumper( $p2 ));

    # 3° test : NOT-OK
    $self->{'shared_data'} = $p1;
    $p2 = $self->{'shared_data'};
    $self->mylog( "P2: ($p2)" . Dumper( $p2 ));