if ($foo) {
   my $bar = "true";
}
print $bar;
print "again" . $bar; #-- does this still work
<cut 500 lines>
print "and again" . $bar; #-- what about this?

##</code><code>##

my $bar = "hello"; #-- global

sub mysub {
  if (condition) {
    my $bar = "goodbye";
  }
  print $bar;
}