#!$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;