Select Code to Download

%responce_array1                                    = ();
%responce_array2                                    = ();
...
$temp         = $dec_json_obj->{0};
$dec_json_obj = &get_hash_to_str($temp);
print $temp= $dec_json_obj->{ItemName};

my ( %response1, %response2 );
$response1{REQUEST}{Items}[0]{ItemName} = 'demoName0';
...
$temp         = $dec_json_obj->[0];
$dec_json_obj = get_hash_to_str($temp);
print $temp   = $dec_json_obj->{ItemName};