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