our $foo;

sub f {
   print("$foo\n");
}

for $foo (qw( a b c )) {
   f();  # Prints a, b and c.
}