use strict;

use Data::Dumper;
use DBIx::Connect;
use DBIx::Recordset;


$DBIx::Recordset::Debug = 2;

my @scf = (902 .. 908, 917, 926 .. 928); # scf is a zip prefix

use vars qw(*zipset);

*zipset = DBIx::Recordset->Search
  ({
    '!DataSource' => DBIx::Connect->to('mdb_test'),
    '!Table'      => 'customer',
    '*zip'        => 'LIKE',
    'zip'         => [ map { $_ . '%' } @scf ],
    '$max'        => 10
   });

my $count;

while (my $rec = $zipset->Next) {
  print Dumper($rec);
  exit if ++$count > 10;
}