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

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