use strict; use XML::Smart; my $job_name = "a job name"; my $desc = "a description"; my $desc2 = "another description"; my $num = "a number"; my $XML = XML::Smart->new(); $XML->{JOB}{NAME}[0] = $job_name; $XML->{JOB}{DESC}[0] = $desc; $XML->{JOB}{DESC}[1] = $desc2; $XML->{JOB}{NUM}[0] = $num; $XML->save('output.xml');