while( defined ( my @row = $sth->fetchrow_array ) ) {

##</code><code>##

while( my @row = $sth->fetchrow_array ) {

##</code><code>##

my $dbh = DBI->connect('DBI:CSV:f_dir=.;csv_quote_char=~;')  or die ...