The canonical example is use as a static variable: sub foo { my $foo if 0; $foo++ }

Note that in Perl 5.10.0 the use of my $foo if 0 will generate a compile-time warning