while (my \@row = $sth->fetchrow_array) {
    print "<table id="t01">";
    print "<tr>";
    if (row[0] eq '1') {