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