for (1) {
	my $ref = \ $_;
	$$ref ++;
}