There are multiple issues to deal with here, potentially including list vs scalar context and subtleties re lists vs arrays.... but the following is one method avoiding those, written to be utterly explicit about each step, and using your Arsenal data:

# filehandler.pl #1158919
use strict;
use warnings;
use 5.018;

sub read_file {
     my (@names, @out);
     my @lines = <>;
     chomp(@lines);
     for my $line(@lines) {
         @names = split /,/, $line;
         for my $name (@names) {
            push @out, $name;
         }
     }
     for my $item(@out) {
         print $item . "\n";
     }
 }

 read_file;
[download]

We could, of course, append the newline after each name at Ln 13, instead of in Ln17, but either would satisfy your desire to "print each element of the array on a newline."

Thank you for this. I came up with this but the ouput is different to yours. what am i doing wrong here?

sub read_file {
    @lines = <>;
    chomp(@lines) ;
    @lines = join (',',@lines);
    for $i(@lines){
        print $i . "\n";
    }

 }
 &read_file;
[download]

Not a cure here, but please, save yourself much future grief, by getting into the habit of using strict and warnings.

Also, read the FAQs here: good questions show output, desired output and (errors and warnings) if any.


Questions containing the words "doesn't work" (or their moral equivalent) will usually get a downvote from me unless accompanied by:
1. code
2. verbatim error and/or warning messages
3. a coherent explanation of what "doesn't work actually means.

I think i realised this after your message . What i was think of as an array was in fact a list ?. I changed my code accordingly and it worked

sub read_file {
    @lines = <>;
    chomp(@lines) ;
    $oldlines = join (',',@lines);
    $oldlines =~ s/,/\n/xg;
    print $oldlines;
    

 }
 &read_file;
[download]

Try this; ask questions:

#! perl -slw
use strict;

sub readfile {
    local $/;                                     ## enable slurp mode
+;
    my @lines = map{ split ',', } split "\n", <>; ## split file by lin
+es, then lines on commas.
    return @lines;
}

my @lines = readfile();

print for @lines;

__END__
C:\test>1158919 junk.dat
Cech
Bellerin
Per
Koscielny
Nacho
Ramsey
Coquelin
Alexis
Ozil
Welbeck
Giroud
[download]

There are at least a couple of different ways to do this.

Here's one example using Path::Tiny:

Here's an example that uses Tie::File:

Here's an example that does not use any modules:

Hi, Thanks for the feedback. I actually wanted my output to be like this.

Cech
Bellerin
Per
Koscielny
..
[download]

You know that your output will have a different number of lines than your input, so you need to deal with the step of turning one input line into multiple output lines.

sub read_file {
  @lines = <>;
  chomp(@lines);
  for $line (@lines) {
    print join "\n", split ',', $line;
    print "\n"
  }
}
read_file;
[download]

$: perl 1158919.pl < Arsenal
Cech
Bellerin
Per
Koscielny
Nacho
Ramsey
Coquelin
Alexis
Ozil
Welbeck
Giroud
$:
[download]