use strict;
use warnings;

while (my $y = 1) {
	$y = 0;
	print "hello (y = $y)\n";
}