for(@ar) {
  print "$_\n";
}