use strict;
use warnings;
use JSON;
use Data::Dumper;

my $json = '{"name":"Jerry Stephin","country":"uk","email":"brabrabra"}';
my $perl = from_json $json;
print Dumper $perl;

print "$_ $perl->{$_}\n" for qw( name email country );