use strict;
use warnings;

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