sub foo {
	for (1..10) {
		$x = 3;
	}
}

say foo();