my $var = 4;
my $bar;
for(...){
...
...
...
while(...){
for(...){
...
...
...
}
...
...
}
...
...
...
}

...
print $foo;