Found = in conditional, should be == at scope_test.pl line 5.

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

use strict;
use warnings;

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