{
    my ($v1, $v2);

    sub outer_function { ... }
    sub inner_function { ... }
}