Perl code by slevy1ster - 11 lines

Link:

slevy1ster - Perl, pasted on Jan 22:

use constant EOL_CHAR => "\n";

my @arr = qw( 123 456 789 );  # like bash and IFS

$\ = EOL_CHAR;

foreach(@arr) {
  
  print $_;
}

Output:

1
2
3

123
456
789