Select Code to Download

$VAR1 = [
          {
...
            'name' => 'cccc'
          }
        ];

#!/usr/bin/env perl       
use strict;
...
  } 
}
print Dumper \@eventrecords;

<application_list>

...
+tion>

</application_list>

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