print map { "$_\n" } @xs; #### print @xs ^_ "\n";