Select Code to Download

<errors>
  <error>
   <desc></desc>
  </error>
 </errors>

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' => 'TEST123'
          }
        ];