for (1..10) {
	my $i = 1;
	push(@is, \$i);
	print "in loop: ", \$i, "\n";
}

print "outside loop: $_\n" for @is;