sub mysay (_) { print "$_\n" for @_ }