#### my $errorArray = $data->{errors}; foreach my $error ( @{ $errorArray->{error} } ) { print NEW "$error->{desc}\n"; } #### HASH(0x7fb3d8973fa8) $VAR1 = { 'desc' => 'Slave not running' }; #### ARRAY(0x7ffc84006ad0) $VAR1 = [ { 'desc' => 'Slave not running' }, { 'desc' => 'TEST123' } ];