while(<DATA>) {
    my $i;
    chomp;
    print join('', map { $i++; "<col$i>$_</col$i>" }, split /;/)."\n";
}
__
hello;this;is;a;test
this;is;another;simple;test