my $c = undef;
print "$c\n";

##</code><code>##

my $ct = $dbh->selectrow_array("SELECT ... WHERE x = ?",{},$c);