$_ = 42;
foreach (1, 2, 3) {
   print "Inside loop: \$_ = [$_]\n";
}
print "Outside loop: \$_ = [$_]\n";