sub inInit {
	for (my ($i, $foo) = (0, 0); $i < $a_huge_value; $i++) {
		$foo = $i + 1;
		$foo++;
	}
}