my $x=100; while($x=0){} print $x