sub foo {
   print "$_\n" for @_;
}