Select Code to Download

<application_list>

...
<application id="1250" external-id="EAR-AA-1250" name="dddd"></applica
+tion>

</application_list>

<event_list>
<event>
...
957</value>
</event>
</event_list>

#!/usr/bin/env perl       

...
        print  "The arrays are the same";
        #print Dumper @eventrecords;
    }