while(each %ENV){
	$ENV{__COUNT__}++;
	test(\%ENV);
}

sub test{
	my $ref = shift;
	print "$ref->{__COUNT__}\n";
}