use strict;
use List::MoreUtils qw/zip/;
use DBI;

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 $sql_part = join ' or ', map {'(reg_num = ? AND month = ?)'} 1 .. @reg_num;

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

my $sth = $dbh->prepare(
    "SELECT name, last_name, reg_num, month, year
    FROM   members
    WHERE  $sql_part AND year='2009");
$sth->execute(zip @reg_num, @month);