do {
     my @row;
     while (@row = $sth->fetchrow_array()) {
        # do stuff here
     }
  } while ( defined( $sth->{odbc_more_results}) );

##</code><code>##

do {
     my @row;
     while (@row = $sth->fetchrow_array()) {
        # do stuff here
     }
  } while ( $sth->{odbc_more_results} );

##</code><code>##

#!/usr/bin/env perl                                                                           

use feature qw (say);
use strict;
use warnings;

my $foo;

( defined $foo ) ? say qq(D'oh!) : say qq(No!);

$foo = 0;

( defined $foo ) ? say qq(D'oh!) : say qq(No!);