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