use strict;
use warnings;
my $i = 0;
while( $i++ < 10 ) {
    no warnings qw/uninitialized/;
    my $scoped;
    print "\$scoped contains $scoped\n";
    $scoped = 100;
}