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