my @reg_num = qw/12345 98564 33234 112345 87564 2345678 938566 1234486 223456 123488/;
my @month = qw/03 01 01 10 05 11 03 05 02 09/;


my $dbh = DBI->connect("DBI:ODBC:$myserver",$u, $p,);

my $reg_num_values = 
  join("," 
       ,map { $dbh->quote($_) } @reg_num 
      );

my $month_values = 
  join("," 
       ,map { $dbh->quote($_) } @month
      );


my $statement = "SELECT 
                        name, last_name, reg_num, month, year
                               
                 FROM   members
                 WHERE  reg_num IN ($reg_num_values)
                 AND    month   IN ($month_values)
                 AND    year='2009'

my $sth = $dbh->prepare($statement);
   $sth->execute();