my $var;
while( $foo ) {
    # ...
    undef $var;
}

##</code><code>##

{
    my $var;
    while( $foo ) {
        # ...
    }
}