use strict;
my $str;

while (<DATA>) {
  chomp;
  my @cols = split(/;/);
  for (my $i=1;$i<=@cols;$i++) {
    $cols[$i-1]="<col$i>$cols[$i-1]</col$i>";
  }
  $str .= '<row>' . join('',@cols) . "</row>\n";
}
print $str;

exit;
__DATA__
a;b;c;d;e
f;g;h;i
j;k
l
m;n;o