Select Code to Download

use warnings;
#use strict;
use XML::Simple;
...
my $data = $xml->XMLin("data1.xml");

print Dumper($data);

<?xml version='1.0'?>
<employees>
    <employee>
...
        <department>Accounts</department>
    </employee>
</employees>

$data = {
          'employee' => [
...
                          }
                        ]
        };

$VAR1 = {
          'employee' => {
...
                                    }
                      }
        };