for (my $foo) {
  $_ = "In scope";
  print "Inside: $foo\n";
}
print "Outside: $foo\n";