Wow it was just a simple logic lol!

by adding

$x = $response->{name};
$j = $response->{email};
$k = $response->{country};

print "Name Is: $x\n";
print "Email Is: $j\n";
print "Country Is: $k\n";
[download]

i got nice output, i think i was tired i never think about it at first. i wouldn't have disturb u guys