1 2 3 4 5 6 7 8
@array = (qq(one,two\n),qq(one,two\n),qq(one,two\n),qq(one,two\n)); foreach (@array) { my @row = split (/,/,$_); chomp ($row[1]); my $var = $row[1]; print $var; }
1
twotwotwotwo