use strict;
use JSON::Tiny 'encode_json';

my $name = 'mike';
my $age = "20";
my $email = "johndeo@/test.com";
my $pass = "test";
 
my $resp = {
    $name => $age,
    $email => $pass
};
 
print encode_json( $resp );


##</code><code>##

my $resp = {
    name => $name,
    age => $age,
    email => $email,
    pass  => $pass,
};