package Foo;

our $_;

for (1..5) {
  print "$_\n";
}