You say "maybe not a big win", but what about something like:

foo();

{
my $foo = 42;
sub foo { print "Foo: $foo" }
}
[download]

Which I've done all too often.