sub print_all {
  foreach (@_) {
    print "$_\n";
  }
}