{
my $data;

sub foo { ... }
sub bar { ... }

}