print " $req $ccode \n";

        }
$sth->finish;

Here is the output:

Row: 1784996 CAABBA 
 2                  
Row: 1785155 PHAD   
 2                  
Row: 1785153 PHAD   
 2                  
Row: 1785173 SEABBA 
 2                  
Row: 1785175 SEABBA 
 2                  
Row: 1785176 SEABBA 
 2                  
Row: 1785176 SEABBA