#!$HOME/localperl/bin/perl

use strict;
use warnings;
use diagnostics;

my $file = "test1.csv";
open(my $fh, "<", $file) or die "Could not open file '$file' $!\n";
my @local;
print "Before while \@local: @local\n";
while (my $line = <$fh>)
{
    print "Before chomp \$line: $line\n";
    #chomp($line);
    print "After chomp \$line: $line\n";
    push @local, $line;
    print "After push \@local: @local\n";
}
print "After while \@local: @local\n";
close $fh;


##</code><code>##

12.2(17d)SXB11
5.10 Generic_118855-15
XYZ 7.1
##</code><code>##

Before while @local:
Before chomp $line: 12.2(17d)SXB11

After chomp $line: 12.2(17d)SXB11

After push @local: 12.2(17d)SXB11

Before chomp $line: 5.10 Generic_118855-15

After chomp $line: 5.10 Generic_118855-15

After push @local: 12.2(17d)SXB11
 5.10 Generic_118855-15

Before chomp $line: XYZ 7.1

After chomp $line: XYZ 7.1

After push @local: 12.2(17d)SXB11
 5.10 Generic_118855-15
 XYZ 7.1

After while @local: 12.2(17d)SXB11
 5.10 Generic_118855-15
 XYZ 7.1

##</code><code>##

Before while @local:
Before chomp $line: 12.2(17d)SXB11

After chomp $line: 12.2(17d)SXB11
After push @local: 12.2(17d)SXB11
Before chomp $line: 5.10 Generic_118855-15

After chomp $line: 5.10 Generic_118855-15
 5.10 Generic_118855-15(17d)SXB11
Before chomp $line: XYZ 7.1

After chomp $line: XYZ 7.1
 XYZ 7.1neric_118855-15(17d)SXB11
 XYZ 7.1neric_118855-152(17d)SXB11