if (my $y = 1) {
	print "Y!  ($y)\n";
}
print "Y is still ($y)\n";