sub print_as_lines
{
  map { print "$_\n" } @_;
}