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