<row>a</row>
<row2>b</row2>

##</code><code>##

#! /usr/bin/perl

use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my (%h);

my $xs = XML::Simple->new(	keeproot => 1,
									noattr => 1,
                       		noescape => 1);

open (FILE, ">>./Test.xml") or die "Cannot create Test.xml: $!\n";

while (<DATA>) {
	delete $h{row};
	my $count = 0;
	chomp;
	my @line = split(/;/);
	foreach my $var (@line) {
		$count++;
		my $tag = "col" . $count;
		$h{'row'}{$tag} = $var;
	}
	print Dumper(\%h);
	print FILE $xs->XMLout(\%h);
}
 
close(FILE); 

__DATA__
a;b;c;d;e
f;g;h
i;
j