use strict;
use warnings;
use DBI;
use DBD::DB2;
$ENV{'DB2INSTANCE'} = [...];
{

    my $db_handle = DBI->connect('DBI:DB2:FLEX', [user], [pass],
                                {   'RaiseError'    =>  1,
                                    'PrintError'    =>  1,
                                },
    )
        or die "couldnt connect to FLEX db $?\n";

    my $taxkey = '0540040';
    for my $i (0 .. 1400) {
        print "COUNT: $i\n";
        find_listings_for_parcel($db_handle, $taxkey);
    }

    $db_handle->disconnect();
}


sub find_listings_for_parcel {
    my ($db_handle, $taxkey) = @_;

    my $query = "SELECT LIST_NBR, PARCEL_NBR FROM list "
        . " WHERE PARCEL_NBR = "
        . $db_handle->quote($taxkey);

    my $query_handle;
    eval {
        $query_handle = $db_handle->prepare($query);
    };
    if ( $@ ) {
        print "QUERY: $query\n";
        exit;
    }

    eval {
        $query_handle->execute();
    };
    if ( $@ ) {
        print "QUERY: $query\n";
        exit;
    }

    $query_handle->finish();
}