use strict;

sub w {
	my $wtf = 'xxx' if 0;
	warn $wtf;
	
	$wtf = "zzz";
};

w();
w();