Select Code to Download

use XML::CSV;

...
$csv_obj->{column_data} = \@arr_of_data;

$csv_obj->print_xml("out.xml");