#!/usr/bin/perl

use strict;
use DBI;

my $level=3;
my $district="50";
my $dbh = DBI->connect('dbi:mysql:database=db','un', 'pw') || die $DBI::errstr;

my  $distquery = "SELECT tm_club_district, tm_club_number FROM clubs WHERE tm_club_district=?";

my %row; # if omitted Global symbol "%row" requires explicit package name
my $row; # if omitted Global symbol "$row" requires explicit package name

my $sqlquery = $dbh->prepare($distquery);
$sqlquery->execute($district);

$sqlquery->bind_columns( \( @row{ @{$sqlquery->{NAME_lc} } } ));
print "START\n";
while ($sqlquery->fetch)
{
  print $row->{tm_club_number} . " - " . $row->{tm_club_district} ."\n";
}
print "EMD\n";