my $row = "hello;this;is;a;test";
my $i = 1;
print "row: $row\n";
@cols = split(/;/,$row);
foreach $col (@cols) { $output .= "<col$i>$col</col$i>"; $i++}
print "row: $output\n";