package Foo;
our $_ = "gotcha";
for (1, 2, 3) {
  print;
  print ": $_\n";
}