[Perl] XML Parser

[basileus_82]

'logdir'        => '/var/log/foo/',
      'debugfile'     => '/tmp/foo.debug',
      'server'        => {
          'sahara'        => {
              'osversion'     => '2.6',
              'osname'        => 'solaris',
              'address'       => [ '10.0.0.101', '10.0.1.101' ]
          },
          'sahara'          => {
              'osversion'     => '6.5',
              'osname'        => 'irix',
              'address'       => '10.0.0.102'
          },
          'sahara'      => {
              'osversion'     => '2.0.34',
              'osname'        => 'linux',
              'address'       => [ '10.0.0.103', '10.0.1.103' ]
          }
      }
  }

e considerando

'logdir'        => '/var/log/foo/',
      'debugfile'     => '/tmp/foo.debug',
      'server'        => {
          'sahara'        => {
              'osversion'     => '2.6',
              'osname'        => 'solaris',
              'address'       => [ '10.0.0.101', '10.0.1.101' ]
          }
     }
}

l problema è questo

ci possono essere casi in cui "sahara" è un array oppure solo una variabile;
ho bisogno di sapere coem valutare la cosa

Dovrei domandarmi "se $var1->{logdir}->{server}->{sahara} è un array allora fai questo, altrimenti se solo variabile, fai quest'altro"

come posso fare???

ho provato con exists, ma niente