use strict;
use warnings;

#  some unreadable Data in a single line 
my $VAR1 = { 'cookies' => { '_AVESTA_ENVIRONMENT' => 'prod', '_mcid' => '1.340667ccb3eb6552450356561ab6bd92.4410ca7570d70e1141356a24d924a2a789d1bea2b8a417b761406f755ab1d9ba' }, 'error' => '400 Bad Request', 'content' => { 'detail' => 'The resource submitted could not be validated. For field-specific details, see the \'errors\' array.', 'errors' => [ { 'message' => 'This value should be of type object.', 'field' => 'merge_fields' } ], 'status' => 400, 'title' => 'Invalid Resource', 'type' => 'http://developer.mailchimp.com/documentation/mailchimp/guides/error-glossary/', 'instance' => '59edf1fc-ed93-4a40-ba23-1f0af24a6eb3' }, 'raw' => '{"type":"http://developer.mailchimp.com/documentation/mailchimp/guides/error-glossary/","title":"Invalid Resource","status":400,"detail":"The resource submitted could not be validated. For field-specific details, see the \'errors\' array.","instance":"59edf1fc-ed93-4a40-ba23-1f0af24a6eb3","errors":[{"field":"merge_fields","message":"This value should be of type object."}]}', 'code' => '400', 'header' => { 'Server' => 'openresty', 'Client-SSL-Cipher' => 'ECDHE-RSA-AES256-GCM-SHA384', 'Client-Date' => 'Mon, 27 Jan 2020 18:37:43 GMT', 'Date' => 'Mon, 27 Jan 2020 18:37:43 GMT', 'Client-SSL-Cert-Issuer' => '/C=US/O=DigiCert Inc/OU=www.digicert.com/CN=GeoTrust RSA CA 2018', 'Connection' => 'close', 'Client-Peer' => '23.55.203.69:443', 'Content-Length' => '373', 'Client-SSL-Socket-Class' => 'IO::Socket::SSL', 'Content-Type' => 'application/problem+json; charset=utf-8', 'X-Request-Id' => '59edf1fc-ed93-4a40-ba23-1f0af24a6eb3', 'Set-Cookie' => '_AVESTA_ENVIRONMENT=prod; path=/, _mcid=1.340667ccb3eb6552450356561ab6bd92.4410ca7570d70e1141356a24d924a2a789d1bea2b8a417b761406f755ab1d9ba; expires=Tue, 26-Jan-2021 18:37:42 GMT; Max-Age=31536000; path=/; domain=.mailchimp.com', 'Client-SSL-Cert-Subject' => '/C=US/ST=Georgia/L=Atlanta/O=The Rocket Science Group, LLC/OU=IT/CN=*.api.mailchimp.com', 'Link' => '; rel="describedBy"', 'Client-Response-Num' => 1 } };


warn "status: ", $VAR1->{content}{status};
warn "field: ",  $VAR1->{content}{errors}[0]{field};

warn "********** Data::Dumper (core)";
use Data::Dumper;
warn Dumper $VAR1;

warn "********** Data::Dump";
use Data::Dump qw/pp dd/;
pp $VAR1;

warn "********** Data::Printer";
use Data::Printer;
p $VAR1;