use Some::Class;
sub sna{}
sub fu{}
{
   my $var;
   sub foo {$var++; #ie code}
}
{
  my @list;
  sub bar{}
}
my $scalar;
my %hash;
# code
# ....
__DATA__