while( my @row = $sth->fetchrow_array ) {
        print join( '|', map ( defined() ? $_ : 'NULL', @row )) ."\n";
}