my $length = length($undef);  # Used to warn here.
print $length;                # Still warn here.

my $length = length($undef);  # Used to warn here.
for (1..$length)              # Still warn here.

my $length = length($undef);  # Used to warn here.
pack 'N', $length             # Still warn here.

...