sub foo {
    ...
    ...
    {
        my $i;
        ...
        ...
    }
}