{"to_id": 0, "message": "This is a sample", "message_id": 1000, "from_id": 999}

to_id                0 
message              This is a sample 
message_id           1000 
from_id              999

#!/usr/bin/perl 
use strict; 
use warnings FATAL => qw/all/; 
use JSON; 
use Data::Dumper; 
 
my $json_string = '{"to_id": 0, "message": "This is a sample", "message_id": 1000, "from_id": 999}'; 
 
my $json_object = JSON->new( ); 
 
my $perl_ref = $json_object->decode( $json_string ); 
 
print Dumper( $perl_ref );

$VAR1 =  
{ 
          'from_id' => 999, 
          'message_id' => 1000, 
          'to_id' => 0, 
          'message' => 'This is a sample' 
};

$VAR1 =  
{ 
          'from_id' => 999, 
          'message_id' => 1000, 
          'to_id' => 0, 
          'message' => 'This is a sample' 
};

while ( my ( $key, $value ) = each ( %$perl_ref ) ) 
{ 
	print "$key, $value\n"; 
}

print $perl_ref->{from_id} . "\n"; 
print $perl_ref->{message_id} . "\n"; 
print $perl_ref->{to_id} . "\n"; 
print $perl_ref->{message} . "\n";