use strict;

my $whatever = "outer";

if (1) {
 my $whatever = "inner";
 print "$whatever\n";
}
print "$whatever\n";