One use I can think of are static variables

sub outside_foo {
    my $STATIC;
    my $done = 1;
    sub foo{
        $done or outside_foo();
        print "\nSTATIC is ", ++$STATIC;
    }
}
foo();
foo();
foo();
[download]