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

	foreach my $obj (@objects)
	{
		SomeMethod($obj);
	}
	$i += 100;
}

sub SomeMethod
{
	my $obj = shift;
	
	AnotherMethod($obj);
}

sub AnotherMethod
{
	my $obj = shift;
}