use Win32::ODBC;



my @objects = ();
my $i = 0;

while($i < 20000000) {
    @objects = getObjects(); 

        # do something

    $i += 100;
}

sub getObjects
{
    my @objects = ();
    my $object = undef;
    my $db = undef;
    my $i = 0;

    $db = new Win32::ODBC("DSN=dsnname;UID=username;PWD=pw%") || die;
	
    for($i=0; $i<100; $i++) {
        #$object = new Obj("name_$i", $i);
        $objects[$i] = $object 
    }
	
	if($db) { 
		$db->Close(); 
	}
    
    return @objects;
}