Select Code to Download

csc,tech,base
csc,comp,acm
...
new,this,that
other,some,sing
other,some,sels

use SuperSplit;
use HTML::Table;

$data = supersplit_open( ',', 'table.txt');

@firstcol = map { $$_[0]  } @$data;
@numbers = (1) x scalar(@firstcol); # init to (1,1,1,...)
...
                $numbers[$i] = 0;
        }
}

$table = new HTML::Table;
$table -> setBorder(2);
...
        $table->addRow( @$row );
}
# $table->print;

foreach $rowno (0..$#firstcol) {
    if ($numbers[$rowno]) {
...
}

$table->print;