our $a;

for (1..10) {
	$a = Foo->new();
	say $a;
}

package Foo;

sub new {
	bless {}, shift;
}