my %row;
my $sth = $dbh->prepare ("SELECT tm_club_district, tm_club_number FROM clubs WHERE tm_club_district = ?");
$sth->execute ($district);
# Bind fetch to $row{tm_club_district} and $row{tm_club_number}
$sth->bind_columns (\( @row{@{$sth->{NAME_lc}}} ));
# fetch without bind_columns is an alias to fetchrow_arraref (returning $row)
# but *with* bind_columns you use the return values as boolean
while ($sth->fetch) {
    print $row{tm_club_number} . " - " . $row{tm_club_district} ."\n";
    }
print "END\n";