Select Code to Download

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

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

use Data::Diver qw/ DiveVal /;
my $Record = {};
...
   ],
   "name" : "Harsha"
}

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