foreach my $col (1..4){
    if ($arrayVar->{"6,$col"} == 1) {
        $t->tagCell('dis','7,$col');
        $t->tagCell('dis','8,$col');
        $t->tagCell('dis','9,$col');
    }
    }