my $Record = {};
$Record->{designation}
= "Manager"; #d0

$Record->{name}
= "Harsha"; #d0

$Record->{personal}[0]
 = "Country"; #d1

$Record->{personal}[1]
 = "location"; #d1

$Record->{personal}[2]
 = "language"; #d1

##</code><code>##

use Data::Diver qw/ DiveVal /;
my $Record = {};
DiveVal( $Record, qw/ designation /)
 = "Manager"; #d0

DiveVal( $Record, qw/ name /)
 = "Harsha"; #d0

DiveVal( $Record, qw/ personal 0 /)
  = "Country"; #d1

DiveVal( $Record, qw/ personal 1 /)
  = "location"; #d1

DiveVal( $Record, qw/ personal 2 /)
  = "language"; #d1

#use Data::Dump qw/ dd /;
#dd( $Record );
use JSON;
print JSON->new->ascii(1)->pretty(1)->encode($Record);
__END__
{
   "designation" : "Manager",
   "personal" : [
      "Country",
      "location",
      "language"
   ],
   "name" : "Harsha"
}

##</code><code>##

my $Record = {
  designation => "Manager",
  name => "Harsha",
  personal => ["Country", "location", "language"],
};