Column(\@act_table,\@colm);
...

sub Column {
    no warnings;
    my $actcol = shift;
    my $col = = shift;
    $colno++;
    print "In column : $colno\n";
    foreach (@$col) {
        print "$_\n ";
        $_=~s/(<Tc(?:\s?\;?\s?\;?\d?)?>)(.*)/Entity_convert($2)/eg;
        
        $_= ThinSpace($_);
        #print "***************** $_\n";
        
    }
}