sub say {
  print @_, "\n";
}

my @a = qw(1 2 3);

# using implicit $_ does not work:
say foreach (@a);

# ...and of course explicit $_ works.
say $_ foreach (@a);

# works:
say "uncle bob";